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ABSTRACT 


Font  definitions  of  1377  characters  of  various  styles 
develooed  by  Allen  V.  Hershey  were  used  as  an  initial  data 
base.  His  character  oefinitions  were  first  out  into  a form 
suitable  for  use  by  vector  graphics  display  processors^  and 
then  these  vectors  were  converted  into  dot  matrix  form  in  a 
variety  of  point  siies.  This  conversion  and  digitization 
process  was  done  using  the  C programming  language;  the  host 
computer  was  a PDP-ll/50  with  the  UNIX  operating  system,  and 
the  computerized  typesetting  was  done  on  a VERSATEC  1200-A 
printer/olotter. 

As  a result,  a large  data  base  for  use  in  computerized 
typesetting  has  been  developed.  In  addition,  the  computer- 
ized typesetting  system  at  the  Naval  Postgraduate  School  has 
been  improved  and  adapted  to  make  use  of  the  large  number  of 
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INTRODUCTION 


A.  beginnings 

Early  in  the  1960's»  as  comouter  technology  began  to 
develoo  more  and  more  raoidly»  the  influence  of  comouters 
expanded  into  many  new  areas.  As  computers  became  more  so- 
phisticatedf  more  available^  and  easier  to  use»  many  dif- 
ferent groups  began  to  search  for  computer  applications 
within  f'^oir  fields.  One  field  in  which  several  uses  were 
found  omputers  was  in  the  publishing  industry. 

early  systems  used  oy  newspaper  and  book  publishers  in- 
volved various  methods  for  character  generation  and  mechani- 
cal positioning  of  those  characters;  while  these  systems 
were  faster  than  typesetting  by  hand/  they  still  left  room 
for  considerable  improvement.  Current  systems  e 1 ec t ron i c a 1 - 
ly  generate  and  position  their  characters/  greatly  improving 
the  speed  of  the  process. 

In  his  recent  book  on  the  subject  of  electronic  composi- 
tion/ N,  Edward  Berg  states  that: 

Although  the  effort  to  set  type  by  computer  has  been 
underway  since  the  early  1960's/  it  has  not  yet  reached 
the  age  of  maturity....  v*any  exciting  new  developments 
have  already  taken  place  which  are  but  a prelude  to  what 
will  unfold  in  the  future.  Proper  computerization  of 
typesetting  now  offers  very  significant  cost  aavantages 
over  hot  metal  .... 
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A technology  (that  of  comouters)  and  a technological 
art  (that  of  tyoesetting)  are  being  blended  together  in 
a way  that  is  oarticularly  challenging  to  the  computer 
technology  since  the  typesetting  art  must  be  maintained. 
The  computer  must  assist  the  art--not  dictate  or  attempt 
to  eliminate  it. 


rthen  two  disciplines  come  together  there  is  always  a 
need  for  good  communications  and  s t anda rd i za t i ons 
standardization  not  in  terms  of  the  art  or  expression, 
but  in  terms  of  electronic  technigues.  The  development 
of  these  standards  allows  an  orderly  application  of  com- 
puter technology  ana  will  not  detract  even  minutely  from 
the  needs  of  the  art  and  free  expression. 


The  computer  technology  will  not  replace  creative 
human  expression  Out  will  enable  that  expression  to  have 
enlarged  horizons,  and  leave  the  mundane  and  repetitious 
to  the  computer.  (Ref.  3,  o.  viil 


8.  EVOLUTION 


I n add  i t i on  , 
sification  which 
s i on  of  mac h i nes 


Mp.  Berg  also  mentions  a "generation"  clas- 
was  cevelooed  to  create  a rational  subdivi- 
into  classes  as  follows: 


1.  First  Generation.  Machines  evolved  from  their  hot 
metal  ancestors  but  adapted  to  the  photographic  pro- 
cess. 

2.  Second  Generation.  Machines  not  evolved  from  previ- 
ous concepts  embodied  in  hot  metal  machines  but  based 
on  the  new  technology  of  setting  tyoe  from  photographic 
masters . 

V 

3.  Third  Generation.  Machines  designed  to  work  in  con- 
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junction  with  coirouters  at  hiqh  soeed  ( greater  than 
100  characters  oer  second  ) and  exoose  the  character 
image  via  a cathode  ray  tube  (CRT). 

Since  the  early  experiments  with  computerized  typeset- 
ting, tne  computer  has  played  a more  and  more  important  part 
in  the  process.  The  main  direction  of  this  paper  has  been 
to  provide  these  “third  generation"  machines  with  a large 
collection  of  type  styles  in  a variety  of  sizes.  One  of  the 
largest  data  bases  available  was  that  digitized  by  Allen  V . 
Hershey  in  1967.  However,  this  data  was  available  only  in 
vector  form  and  current  graphics  display  processors  ana 
typesetters  usually  require  information  for  their  character 
displays  to  be  in  dot  matrix  rather  than  in  vector  form. 

The  first  step  in  the  conversion  process  involved  ob- 
taining the  raw  data  base,  and  then  converting  into  a form 
that  was  usable  for  generating  the  appropriate  vectors. 
This  process  is  described  in  Appendix  C.  An  interesting 
by-product  of  these  initial  efforts  was  the  program  written 
for  use  on  the  TEKTRONIX  4014  aisplay  processor  ana 
described  in  Appendix  D.  This  program  allowed  the  user  to 
select  a particular  font  and  then  to  draw  a character  from 
that  font  on  the  CRT;  the  appearance  of  the  characters  al- 
lowed the  verification  of  the  vector  data  base,  ana  provided 
a checK  on  procedures  used  to  that  point. 

After  the  data  base  was  confirmed,  the  next  step  was  the 


conversion  of  the  vector  data  into  bit  patterns  that  would 


allow  the  use  of  these  fonts  in  a dot  matrix  environment  on 
raster  scan  CRTs.  The  qoal  was  to  produce  a program  that 
could  convert  a standard  size  vector  definition  of  a charac- 
ter into  a dot  matrix  definition  in  the  size  desired  by  the 
user.  Anyone  using  this  program  gained  access  to  the 
Hershey  data  base  ana  increased  the  character  set  available 
for  his  use  by  a significant  amount. 

The  next  sections  Provide  the  background  on  some  early 
experiences  with  computerized  typesetting  and  on  some 
current  methods  used  by  "third  generation"  machines. 

C.  FONT  FUNDAMENTALS 

A font  is  a collection  of  different  characters/  all  of 
the  same  style  and  height/  which  are  mapped  onto  a character 
set.  On  the  PDP-ll/50/  the  7-bit  ASCII  set  of  12B  character 
codes  is  used.  Some  fonts  have  generic  names/  such  as  the 
Bodoni  fonts;  Others  have  lost  their  origins  but  are  named 
for  their  appearance/  like  the  Gothic  English  fonts.  Some 
fonts  are  recent  creations/  and  have  received  more  mundane 
names;  SAILIO/  for  example/  is  a 10  point  font  created  at 
the  Stanford  Artificial  Intelligence  Laboratory  (SAIL).  The 
most  useful  fonts  are  those  that  contain  both  upper  and 
lower  case  English  letters/  Arabic  numerals/  and  a minimal 
set  of  punctuation  marks.  The  more  exotic  fonts  contain 
mathematical  symbols/  characters  from  foreign  languages/ 
and/  occas i onal 1 y / homemade  symbols  for  very  special  pur- 
poses. 
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Soine  characteristics  of  fonts  which  should  be  mentioned 
before  proceeding  are: 

1.  Character  width 

A font  is  either  fixed  or  variable  width.  When  a 
font  is  fixed  widtn»  each  character^  whether  it  is  a 'M'  or 
an  *i'»  will  have  the  same  widths.  In  a variable  width 
font»  on  the  other  hano»  each  character  may  have  a unique 
width. 

2.  Typeface 

Fonts  are  generally  classified  by  the  style  of  the 
tyoeface  used.  Bodoni,  Nonie»  Comdex^  Triplex^  and  so  on, 
are  tyoical  examoles  of  styles. 

3 . Size 
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Together  with  tyoeface,  size  makes  up  one  of  the 
most  noticeable  characteristics  of  a fontf  and  orovioes  one 
of  the  most  useful  methods  of  classification.  Font  size  is 
most  often  referred  to  in  "point'*  size»  a measure  of  the 
font's  height.  A ooint  is  a traditional  orinter's  measure, 
and  is  aop rox i ma t e 1 y 1/72  inch.  On  the  VERSATEC,  the  unit 
of  measure  used  is  the  pixel,  the  smallest  unit  of  resolu- 
tion possible  on  the  machine.  The  picture  element  (pixel  or 
pel)  is  1/200  inch,  about  four  times  the  resolution  of  most 
CRTs.  At  200  oixels  oer  inch,  point  size  and  raster  height 
may  be  converted  using  the  following  formula  : 

raster  height  = (ooint  size  * 2.8)  1 
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One  character  width 

of  pixels 

represent  s 

one 

raster 

1 i ne 

holding 

the  " 

Is"# 

which  are 

dots  which 

must 

be  black# 

and 

the  "Os"# 

which 

are 

blank  spots 

; together 

these 

binary 

di  - 

gits  make 

UP  a 

horizontal  slice 

of  a character 

picture. 

The 

character's  height  is  determined  by  the  point  size  that  is 
requiredf  and  the  widths  are  proportional  to  the  heights. 
Appendix  F contains  a more  complete  description  of  font  and 
character  dimensions. 

4 . Style 

Fonts  that  use  the  same  typeface  may  appear  dif- 
ferent because  they  have  been  altered  slightly;  a standard 

font  may  be  regular#  it  may  be  slanteo  to  the  right  (itali- 

cized)# or  it  may  be  thickened  (bold  face). 

0.,  EARLY  COMPUTERIZED  TYPESETTING 
1.  Phototypeset ters 
a.  Background 

Early  in  1961#  Michael  P.  Barnett#  the  Director 
of  the  Cooperative  Computing  Laboratory  (C.C.L.)  at  the  Mas- 
sachusetts Institute  of  Technology#  encountered  a tape- 
operated  phototypesetting  machine  and  became  interested  in 
the  possibility  of  producing  operating  tapes  for  these 
machines  from  the  output  of  a digital  computer.  Early  pro- 
gramming efforts  produced  some  interesting  results#  but  none 


that  were  especially  useful 


Following  the  award  of  a 


research  grant  in  1962^  how ever/  the  staff  at  the  C.C.L.  was 
enJarged  and  a system  of  computer  programs  was  completed. 
These  orograms  were  used  in  1963  and  1969  to  set  many  hun- 
dreds of  pages  of  material  for  a variety  of  reports/  papers/ 
pamphlets/  and  other  publications  of  interest  to  Mr.  Barnett 
and  his  staff. 

b.  Equipment 

The  equipment  used  at  the  C.C.L.  included  an  IBM 
709/90  computer  with  32K  of  memory  which  produceo  output 
tapes  for  a PHOTON  5o0  phototyoesetter.  Text  material  was 
prepared  for  the  comouter  using  a FWIDEN  FLEXO WRITER. 

The  FlEXOwP I TER  had  a conventional  keyboard  and 
produced  copy  that  had  the  aooearance  of  standard  typewrit- 
ten material;  the  tyoe  was  in  a single  tvpestyle  and  size/ 
and  lines  were  not  Justified.  A paper  tape  ounch  unit  was  a 
oart  of  the  FLEXO WRITER/  and  striking  any  key  on  the  key- 
board/ whether  it  was  a printing  key  or  not/  caused  a pat- 
tern o'  holes  to  be  ounched  in  the  tape  and  then  the  tape 
was  automatically  advanced.  The  paper  tape  was  then  run 
through  the  digital  computer  to  translate  the  8-bit  FLEXO- 
WRITER  codes  into  bit  patterns  on  magnetic  tapes  that  could 
be  used  to  control  the  phototyoesetter.  These  inout  tapes 
were  usually  internally  coded  to  select  type  fonts/  tyoe 
size/  and  so  on/  in  much  the  same  way  that  input  to  current 
text  processinq  systems  or  text  formatters  such  as  TPS  [Ref. 
1)  and  NRQFF  [Ref.  7]  is  done. 
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The  PHOTON  machine  ooerated  using  a glass  char- 
acter disk#  a small  electronic  flash  unit#  a lens  turret  and 
orism,  and  a disk  level  selection  cam.  Each  glass  disk  con- 
tained photograohic  negatives  of  characters  arranged  in 
eight  concentric  rings  of  180  uniformly  spaced  characters; 
the  disk  rotated  in  a vertical  plane  in  front  of  the  flash 
unitf  and  the  spindle  in  which  the  disk  was  mounted  rested 
in  a cradle  which  could  occupy  eight  parallel  positions. 
Changing  the  position  of  the  cradle  with  the  cam  moved  the 
disk  a small  amount  in  the  vertical  plane/  as  the  r^ng  of 
characters  moved  oast  the  flash  unit/  the  unit  flashed  at 
the  appropriate  character  and  the  image  of  that  character 
was  focused  onto  the  film  oassino  beneath  the  typesetter. 
Different  disks  were  used  to  provide  the  different  type 
fonts  required/  and  type  size  was  changed  by  rotating  the 
lens  turret  to  change  the  size  of  the  lens.  The  film  was 
then  cut  into  cages  and  orinted  using  standard  offset  print- 
ing techniaues. 

/ 


c.  Lessons  Learned  at  V.I.T. 


As  personnel  at  the  C.C.L.  gained  experience  in 
computerized  typesetting/  the  advantages  of  that  system  be- 
came obvious.  First  of  all/  t aoe-ooe r a t ed  typesetting 
machines  could  set  computerized  output  more  rapidly  than  hu- 
man operators  could/  and  it  could  be  done  without  the  inter- 
vention of  keyboard  operators  and  the  inevitable  human  er- 
rors that  occur.  Computers  could  also  sort/  update/  and 
perform  other  clerical  operations  on  almost  any  form  of  in- 


put.  Computers  were  also  used  to  simplify  the  keyboard  work 


involved  in  setting  type  from  a manuscriot  by  introducing 
t yooaraph i ca 1 details  and  styles  that  did  not  force  the  key- 
board operators  to  attend  to  the  smallest  details  as  they 
had  had  to  do  when  using  conventional  technioues. 

2.  Hot  Meta?  Machines 

a.  Backgrounc 

In  the  miodle  1960'sf  the  interaction  of  comput- 
ers and  various  typesetting  devices  was  gaining  more  and 
more  attention  in  the  publishing  industry.  Computers  were 
being  installed  in  typesetting  environments  for  use  in  the 
newspaper  and  book  publishing  industries.  As  early  as  July 
of  1963»  several  newspapers  had  begun  to  use  computers  for 
production  purposes.  THE  'WASHINGTON  STAR,  for  example^  used 
their  general  ouroose  computer  for  normal  hyphenation  and 
j us t i f i c a t i on  of  news  copy,  and  also  expanded  its  use  to  in- 
clude the  generation  of  volume  and  production  statistics  and 
other  accounting  functions. 

b.  Equipment 

Using  an  IBM  1620/1  with  ilOK  of  memory  and  a 
1311  disk  file,  the  WASHINGTON  STAR  was  able  to  run  an  ap- 
plications program  that  accepted  internally  coded  input  and 
that  could  justify  every  typeface  size  and  line  width  that 
their  linecasting  equipment  could  produce.  The  computer 
stored  the  widths  of  the  brass  mats  and  the  lengths  of  space 
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band  travel;  as  each  character  was  read  by  the  computerf  its 
brass  width  was  subtracted  from  the  previously  set  line 
length.  This  continued  until  the  line  was  within  justifica- 
tion range.  The  computer  then  searched  to  see  if  the  next 
word  space  fell  within  range*  if  it  did*  then  the  line  was 
filled  and  sent  to  the  appropriate  punch.  If  the  word  space 
was  too  long*  the  computer  could  attempt  to  insert  extra 
fixed  space  inter-  or  intra-word*  depending  on  the  desired 
hyphenation  freouency. 

The  paper  used  their  disk  files  to  store  both 
type  sizes  and  widths  and  to  store  their  hyphenation  dic- 
tionary; when  the  j us t i f i c a t i on  routine  could  not  work*  then 
the  hyphenation  routine  was  called.  TH£  aASHINGTOM  STAR 
maintained  an  extensive  hyphenation  dictionary  and  a set  of 
programs  that  attempted  to  hyphenate  any  words  not  located 
in  the  dictionary. 

c.  Exoansion  and  Development 

Because  justification  and  hyphenation  took  up 
very  little  of  the  computer's  time*  TmE  WASHINGTON  STAR  also 
used  their  computer  to  provide  proauction  statistics*  to 
schedule  linecaster  operations*  and  to  gather  statistics  for 
editors  and  compositors  to  help  them  balance  their  presenta- 
tion of  the  news  and  to  help  them  lav  out  the  paper.  In  ad- 
dition* they  had  comoleted  the  development  of  a program  that 
enabled  them  to  take  wire  service  copy  as  input*  run  it 
through  the  computer  to  store  it  and  reprint  it*  ano  then 
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edit  the  computerized  print-out  of  the  story;  the  stored 
version  was  then  re-edited  and  sent  to  the  linecasting 
routine.  That  method  eliminated  the  need  to  cast  a dummy 
page  that  would  then  have  to  tse  broken  up  ana  re-cast  after 
editing. 

In  addition  to  wire  service  editing^  THE  WASH- 
INGTON STAR  also  used  the  same  keyboard  and  computer  to  out- 
put phot o-composed  oisolay  advertising  using  a program 
developed  by  IBM  and  THE  MIAMI  hERALO.  THE  WASHINGTON 
star's  use  of  their  computer  for  "hot  metal"  typesetting  and 
for  peripheral  accounting  and  editing  tasks  demonstrated  an 
effective  use  of  the  eauioment  available  at  the  time. 

3.  Computer  Generation  of  Characters 

Most  early  uses  of  computers  in  typesetting  in- 
volved computer  generation  of  code  to  drive  either  a photo- 
typesetting machine  or  a "hot  metal"  linecaster.  These 
processes  generally  used  commands  embedded  within  the  text 
to  be  printed.  These  commands  performed  such  functions  as 
selecting  tyoe  font  and  size»  and  positioning  the  characters 
on  the  output  medium.  In  the  late  19o0's»  interest  grew  in 
increasing  the  capabilities  of  computerized  typesetting; 
there  were  usually  severe  limitations  on  the  character  sets 
available  to  computer  output  devices#  normally  line 
printers#  but  typographers  had  a wide  variety  of  type  styles 
and  sizes  to  choose  from.  What  was  needed  was  a system  that 
would  make  the  advantages  of  typography  available  to  the 
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computer;  such  a system  would  combine  the  speed  of  the  com- 
puter with  the  versatility  of  the  linecaster/  and  would  make 
the  result  available  to  both  machines. 

In  1967»  Allen  V.  Hershey»  a mathematical  physicist 
at  the  U.S.  Naval  beacons  Laboratory  in  Oahlgren,  Virginia^ 
developed  a set  of  1377  occidental  characters  and  hundreds 
of  oriental  characters  by  hand  using  only  graph  paper  to  as- 
sist his  work  [Ref.  161.  He  also  developed  FORTRAN  typo- 
graphic and  cartographic  svstems  that  used  his  character  li- 
brary to  compose  finished  pages  of  text#  maos#  drawings#  and 
mathematical  equations.  This  was  one  of  the  earliest  ef- 
forts made  to  use  the  computer  to  take  over  the  functions 
formerly  oerformed  by  slower  mechanical  devices#  so  that 
both  Character  generation  and  position  could  be  handled  at 
computer  soeed. 
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E.  IMPROVED  COMPUTER  TECHNIQUES 
1 . Int  roduc  t i on 

None  of  the  "generations"  of  typesetting  machines 
mentioned  earlier  is  now  totally  distinct#  since  even  the 
simplest  devices  in  use  today  may  host  a m i n i -c ompu t e r or  a 
micro-computer.  Therefore#  the  general  opinion  is  that 
machines  should  now  be  classified  based  on  the  techniques 
used  to  store  a master  character  and  to  generate  that  char- 
acter for  recording  on  the  outout  medium.  The  classifica- 
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t i ons  used  are 


* Phot ogpaphic/Opti cal  ( Photo/Optic  ) 


* Pho t ograph i c /Sc ann i ng  ( Photo/Scan  ). 

* 0 i g i t a I /Scann j ng  ( Digital/Scan  ). 

These  classifications  include  the  various  graphics  display 
terminals  and  CRT  terminals  familar  to  most  people  who  use 
or  who  have  seen  computers. 

The  Photo/Optic  method  is  fairly  well  known;  it  is 
the  oldest  of  the  three  and  was  the  method  used  by  both  the 
Cooperative  Computing  Laboratory  at  '^.I.T.  and  THE  inASHING- 
TON  STAR  in  their  offset  printing  procedures.  The  two 
"scanning"  methods  are  less  well  known  and  generally  consist 
of  generating  dots  or  lines  on  an  output  medium  using  a CRT 
or  some  kind  of  drum  and  lioht  arrangement.  The  CRT  is 
perhaps  the  most  familar  and  its  use  involves  generating  a 
narrow  beam  of  light  and  then  deflecting  the  beam  so  that  it 
will  illuminate  a very  small  area  on  the  screen  of  the  CRT. 
As  some  areas  are  "turned  on"  against  a dark  backgroundr  the 
character  or  pattern  desired  can  he  displayed  on  the  screen 
as  a dot  pattern. 

2.  Photo/Optic  N'achines 


This  category  includes  the  majority  of  phototypeset- 
ting devices  available  today.  Usually  the  master  character 
is  stored  ohot og r aoh i c a 1 1 y and  is  then  generated  optically 
for  recording  on  t^^e  output  medium,  Most  devices  store  the 
master  characters  for  various  fonts  in  negative  form»  since 
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the  character  must  be  illuminated  after  it  has  been  select- 
ed. As  it  is  illuminated^  the  ootical  system,  using  a 
variety  of  lenses,  can  produce  the  required  point  size  and 
position  the  character  image  on  the  output  medium.  The 
disadvantage  inherent  in  this  system  is  the  mechanical  move- 
ment required  to  position  the  characters  and  pages;  this 
movement  is  very  slow  when  compared  to  the  speed  with  which 
characters  can  be  selected  and  generated,  even  when  the 
mechanical  equipment  is  operating  at  its  fastest.  Even  the 
character  selection  and  generation  is  slow  when  compared 
with  a fully  computerized  system,  since  this  system  must 
still  use  some  kino  of  mechanical  apparatus  to  select  the 
characters. 

3.  Photo/Scan  Machines 

These  machines  again  store  the  master  characters 
Photographically/  but  they  generate  the  selected  character 
using  a dot  or  line  generating  mechanism  to  record  the  char- 
acter on  the  output  medium.  These  devices  operate  much  like 
Photo/Optic  devices  until  the  output  stage  is  reached;  from 
that  time  on,  Photo/Optic  devices  treat  the  character  as  a 
unit  and  Photo/Scan  devices  treat  the  character  as  a collec- 
tion of  "scan  lines"  which  are  built  up  to  form  the  complet- 
ed character. 

The  character  is  built  up  on  the  outout  medium  using 
a series  of  closely  spaced  lines  or  dots  which  together  form 
the  character,  usually  using  a CRT  and  an  arrangement  of 
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mirrors.  This  speeds  up  the  typesetting  process  greatly  be- 
cause the  characters  are  positioned  electronically.  Because 
the  characters  can  also  be  sized  e 1 ec t ron i ca 1 1 y f there  is  no 
time  lost  while  a lens  turret  is  moved  to  oosition  a dif- 
ferent lens. 

4.  Oigital/Scan  ^'achines 

Devices  in  this  category  store  their  character  sets 
digitally  in  memory  and  use  a dot  or  line  generating  mechan- 
ism to  produce  the  characters  on  the  output  medium.  This 
method  allows  the  character  definitions  to  be  stored  as 
binary  digits  in  the  computer's  memory*  providing  rapid  ac- 
cess to  and  display  of  the  character  information;  however* 
it  does  reauire  a large  amount  of  storage  for  each  charac- 
ter. For  example*  as  characters  become  more  complex  and/or 
larger*  more  information  about  beam  oositioning  and  switch- 
ing is  required.  Mr.  Berg  estimates  tnat  "for  100  printing 
characters  at  10  point  size*  aoo rox i ma t e 1 v 8000  (lb  bit) 
words  of  storage  are  r equ i r ed . . . . On  1 y 35  characters  at  72 
point  size  can  be  stored  in  8000  (16  bit)  words.  The  pre- 
cise storage  requirement  is  dependent  on  typeface*  point 
size*  and  character  design."  [Ref.  3*  p.  6:10) 
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F.  CURHENT  CHARACTER  DISPLAY  TECHNIQUES 


Diqital/Scan  techniques  are  most  familar  to  computer 
scientists  because  alphanumeric  CRT  terminals  and  most 
graphics  display  orocessors  use  this  method  of  character 
generation.  Both  the  DATAMEDIA  terminals  ( 1 500 # 1 520 » 250 0 ) 
and  the  RANTEK  GX-lOO  fRef.  9]  display  processor/  for  exam- 
ple/ use  a bank  of  ASCII  characters  stored  digitally  in  7x12 
dot  matrices  to  generate  visual  displays.  Characters  for 
these  oevices  all  fit  within  a 5x7  dot  matrix  and  the  extra 
dot  Dositions  provide  spacing  between  characters  and  between 
lines.  The  screen  image  is  renewed  90  times  a second/  the 
electron  gun  is  moved  across  the  rear  of  the  CRT  in  a side- 
to“side/  line  by  line  "raster"  scan/  and  each  individual  dot 
is  either  illuminated  or  skipped  to  provide  the  required 
display.  Figure  1 is  an  examole  of  a character  represented 
digitally  and  suitaole  for  use  by  raster  scan  devices. 
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FIGURE  1 


Dot  ’Xatrix  Reo  r e sen  t a t i on 


Another  example  of  a raster  scan  device  used  as  a graph- 
ics disolay  unit  is  the  CO NOGRAPHIC-12  Interactive  Display 
System  discussed  in  Reference  13.  This  device  supports  a 
set  of  printable  characters  corresponding  to  the  standard 
ASCII  character  set;  standard  sire  characters  are  drawn  on  a 
grid  measuring  22x16  raster  units  and  situated  in  the  lower 
left  corner  of  a character  block  measuring  U0x2u  raster  un- 
its. The  character  olock  determines  inter-column  and 
inter-line  spacing,  normally  85  characters  oer  line  and  38 
lines  oer  cage.  Figure  2 orovides  an  example  of  this  tech- 
nique. While  the  sire  of  the  characters  on  the  screen  may 
be  changed,  all  characters  are  still  drawn  from  the  standard 
sire  definition. 


FIGURE  2.  Character  Block 

The  VECTOR  GENERAL,  AGT-lO,  and  TEKTRONIX  graphics 
display  orocessors  are  examples  of  "refresh  graphics" 


machines  which  store  character  sets  dioitallv. 
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operate  differently  from  the  raster  scan  devices  to  generate 
visual  displays.  The  VECTOR  GENERAL  IRef.  12)  is  a highly 
sophisticated  machine  with  many  interesting  capabilities/ 
including  the  ability  to  draw  curves.  That  capability  al- 
lows the  VECTOR  GENERAL  to  store  information  about  each 
character  in  its  memory  as  a seguence  of  strokes  which 
create  character  shaoes.  Each  character  is  composed  from  a 
set  of  basic  image  elements  CRef.  12/  o.  1-20]/  or  draw  fig- 
ures/ and  the  characters  are  drawn  from  these  images  as  a 
series  of  arcs  and  vectors  using  that  information. 

In  addition/  the  VECTOR  GENERAL  can  aisplay  several 
fonts  in  four  sizes;  however/  the  sizes  are  all  scaled  from 
the  standard  size  character  definition,  and  the  only  fonts 
available  are  the  standard  ASCII  character  set  and  a font 
consisting  largely  of  Greek  characters  ana  special  mathemat- 
ical sy mbo 1 3 . 

The  adage  display  processor  (AGT-10)  stores  and  Gen- 
erates its  character  set  in  a manner  similar  to  that  of  the 
VECrUR  general.  However,  because  the  AGT-10  does  not  have 
circle  and  arc  hardware,  all  curves  must  be  aoproximated  by 
straight  lines. 

Both  of  these  refresh  graphics  orocessors  must  re-draw 
the  entire  screen  image  approximately  ^0  times  a second  to 
prevent  the  image  from  fading  or  flickering. 

TEKTRONIX  [Ref.  la)  display  terminals  (a010.a012.a0ia) 
are  also  Digital/Scan  machines,  but  they  oiffer  in  some  ways 
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from  the  other  refresh  terminals.  The  character  set  is 
stored  internally  in  dot  matrix  form/  but  when  the  charac- 
ters are  drawn  on  the  CRT  by  the  electron  gun/  the  beam  il- 
luminates slightly  more  of  the  screen  than  the  precise  loca- 
tion reauired.  Because  of  that/  most  characters  appear  as 
lines  rather  than  as  individual  dots.  The  characters  can  be 
drawn  in  four  sizes/  but  each  size  is  based  on  a common 
character  definition  which  is  enlarged  to  the  size  required; 
the  beam  from  the  electron  gun  is  then  intensified  so  that 
an  even  larger  spot  is  illuminated  on  the  CRT,  and  the  char- 
acters appear  to  grow  both  larger  and  wider. 
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II.  NATURE  OF  THE  PROBLEM 


A.  COMPUfERlZED  TYPESETTING  AT  NPS 

This  thesis  was  undertaken  as  part  of  an  effort  to  im- 
orove  the  computerizeo  typesettinq  capabilities  at  the  Naval 
Postqraduate  School  in  IR76-1977.  Until  that  time»  these 
facilities  had  been  fairly  limitefl  and  were  rarely  used. 
The  programs  used  were  written  in  the  programming  language 
C and  were  designed  to  be  run  under  the  UNIX  operating  sys- 
tem on  the  Computer  Science  Department's  POP-11/50  comput- 
er. The  documents  set  in  computer  type  are  produced  on  a 
VERSATEC  p 1 o 1 1 e r /p r i n t e r . 

The  original  software  to  set  type  under  UNIX  was 
designed  and  written  by  Professor  G.L.  0arksaale»  Jr.  and 
was  based  on  four  fixed  width  fonts  with  common  dimensions. 
The  information  to  be  set  in  these  fonts  was  the  output  from 
TROFF,  a text  orocessor  already  available  under  UNIX.  The 
actual  tyoesetting  was  done  by  another  orogram»  a virtual 
typesetter.  Professor  Barksdale  had  also  designed  a "font 
editor"  that  was  intended  to  allow  a user  to  create  new 
fonts  or  to  modify  existing  fonts*  in  a manner  similar  to 
that  used  by  most  text  editors.  However*  this  font  editor 
was  not  appropriate  for  use  in  the  large  scale  digitization 
of  fonts. 
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In  an  attempt  to  improve  this  situation,  il8  additional 
fonts  were  obtained  from  external  sources,  Thirty"four  of 
these  fonts  were  already  in  digitized  form  and  as  a result 
were  limited  in  point  sizes  available.  They  also  required  a 
great  deal  of  storage  in  that  form.  Because  the  Hershey 
fonts  were  available  in  vector  form  rather  than  dot  matrix, 
they  were  acquired  in  the  hooes  that  they  could  be  adapted 
for  use  in  computerized  typesetting  in  a form  that  required 
less  storage.  The  3^*  digitized  fonts,  for  example,  required 
6^3  512-byte  blocks  of  storage  while  the  Hershey  fonts, 
stored  in  vector  form,  required  only  193  blocks. 

This  thesis  was  directed  toward  finding  an  algorithm 
that  would  allow  the  Hershey  fonts  to  remain  in  memory  in 
vector  form  but  convert  them  to  a digitized  form  in  any 
point  size  required  by  the  user. 

B.  INITIAL  CONVERSION 

1.  Original  F o rma  t 

The  vector  definitions  of  the  19  Hershey  fonts  were 
obtained  from  a tape  available  through  the  National  Bureau 
of  Standards  [Ref.  161.  The  original  tape  contained  approx- 
imately 360k  bytes  of  data  representing  8-bit  EBCDIC  charac- 
ter codes.  The  tape  contained  just  over  9600  card  images, 
where  each  card  image  contained  a character  identification 
number,  a card  sequence  number,  and  coordinate  pairs.  As  a 
result,  the  data  was  essentially  stored  as  a stream  of 
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Hershey's  original  definitions  used  integers  between 
and  to  reoresent  the  endpoints  of  his  vectors^  with 

a (50/00)  coordinate  pair  representing  a "lift  pen"  command 
and  a (50»50)  representing  "end  of  character".  So  that  all 
of  the  coordinate  pairs  would  fit  into  four  bytes/  negative 
values  were  subtracted  from  100  ang  stored  as  two-digit 
numbers  greater  than  50  so  that  they  could  be  differentiated 
from  a positive  integer.  Fgr  examole#  (10/10)  was  stored  as 
"1010"  but  (-10/10)  was  stored  as  "9010". 

2,  Converted  Format 

The  initial  steps  reauired  to  read  the  tape/  convert 
the  records  from  EBCDIC  to  ASCII/  strip  away  unnecessary 
characters/  and  so  on/  are  contained  in  Appendix  C.  Once 
the  input  files  had  been  orooerly  prepared/  they  were  put 
into  a vector  form  which  made  it  easier  to  access  the  vector 
definitions  for  a given  cnaracter.  A header  table  consist- 
ing of  B56  16-bit  woros  was  established;  each  even  numbered 
word  from  0 to  25^1  corresponded  to  the  appropriate  ASCII  oc- 
tal codes  and  contained  the  character  width  of  the  character 
at  that  code  location/  while  the  odd  numbered  words  con- 
tained pointers  to  the  character  definitions. 

Within  the  character  definitions/  each  coordinate 
pair  was  stored  in  a word  of  storage  with  the  x-coordinate 
in  the  left  byte  and  the  y-cooroinate  in  the  right  byte. 
Even  the  (50/00)  and  (50/50)  pairs  were  stored  in  this 
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fashion  rather  than  as  "move/draw"  and  "endlist"  bits  in  the 
conventions  used  by  some  graohics  display  processors.  Since 
each  integer  used  by  Hershey  could  be  represented  in  seven 
bits»  the  initial  inclination  was  to  use  a format  with  the 
x»y  coordinate  pairs  stored  in  two  bytes»  but  with  six  bits 
used  for  the  integer#  one  bit  for  the  sign,  and  the  extra 
bit  usea  for  the  "move/draw"  or  "endlist"  bits.  This  would 
have  decreased  the  present  storage  reguirements  for  a font 
by  approximately  25%.  That  method  was  not  used,  however;  it 
was  decided  that  the  amount  of  storage  that  would  be  saved 
was  not  worth  the  extra  effort  that  would  be  reoui red  to 
manipulate  the  bits  sa t i s f ac t o r i 1 y , In  addition,  the  time 
would  increase  slightly,  which  is  only  a minor  concern  since 
this  is  usually  done  only  once  to  a font,  but  the  risk  of 


introducing  or  failing  to  detect  errors  arising  from  the  bit 
operations  would  also  increase  greatly. 
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f III.  DIGITIZING  A HFWSMEY  FONT 


A,  FONT  FILE  FORMAT 

All  digitized  font  files  at  NFS  follow  a modified  SAIL 
format  IRef.  that  offers  several  advantages  in  memory  re- 
quirements and  that  is  tailored  to  16-bit  processina.  The 

J 

NFS  format  is  displayed  in  FIGURE  5 on  the  next  page.  The 

first  256  16-bit  words  of  each  file  contain  a header  table. 

Each  of  the  120  possible  characters  in  a font  has  two  words 

in  this  table  which  contain  its  character  width  and  access- 

\ 

ing  information.  Character  000  octal  uses  the  first  two 
words»  character  001  uses  the  next  two  words/  and  so  on. 
This  arrangement  provides  an  easy  character  accessing  formu- 
la: twice  the  character  code  gives  the  location  of  the  first 
word  of  information  about  that  character  in  the  header 
table.  Eor  each  character  defined/  the  first  header  table 
word  contains  the  character  width  in  the  rightmost  byte  ang 
a bloct<  counter  in  the  leftmost  byte.  The  maximum  character 
width  permitted  is  255  pixels.  The  block  counter  contains  a 
number  between  0 and  255;  it  is  a file  offset  in  512  byte 
blocks.  The  second  word  contains  a byte  offset/  an  unsigned 
integer  between  0 and  65535/  which  is  added  to  the  block 
offset.  ' 


The  character  definition  is  accessed  by  seeking  the  re- 
guired  block  offset/  if  any/  and  then  seeking  the  byte 
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figure  3.  NFS  Font  File  Format 
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offset.  <^hen  accessing  any  character^  a zero  wioth  and  a 
zero  Dointer  imoJy  the  character  is  not  defined  in  the  oar- 
ticular  font.  The  dynamic  aspects  of  the  pointer  structure 
in  the  header  table  allow  for  individual  character  accessing 
and  for  font  files  up  to  approximately  200K  in  size.  Howev- 
er»  a limitation  in  the  "seek"  system  call  limits  the  ad- 
dressable storage  to  approximately  160K. 

This  situation  is  ideal  in  a minicomputer  environment 
where  core  is  limited  and  where  large  Quantities  of  data  re- 
side on  direct  access  devices.  The  three  woros  following 
the  header  table  in  the  font  file  contain  information  on  the 
font  height/  on  the  width  of  the  widest  character  in  the 
font/  and  on  the  logical  height  of  the  characters.  All  di- 
mensions are  measured  in  pixels.  An  ASCII  description  of 
the  font  begins  in  word  260  and  continues  until  an  end-of- 
string  delimiter  ('\0')  is  encountered.  No  description  is 
normally  provided  with  any  of  the  Hershey  fonts. 

The  remainder  of  the  file  is  composed  of  the  character 
definitions  pointed  to  by  the  information  stored  in  the 
header  table.  Each  definition  follows  the  same  format/  and 
there  are  no  requirements  for  definitions  to  begin  on  word 
boundaries.  Each  character  definition  is  divided  into  two 
parts/  the  character  dimensions  and  the  character  bit  pic- 
ture/ as  indicated  in  FIGURE  ^1 . 
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FIGURE  y.  NPS  CHaracter  Definition 
"irstf  there  are  eight  bytes  whicn  hold  the  raster  width, 
left  kern,  rows-f  roir-too  (rft),  and  the  da  t a”  ro  w“C  oun  t 
(drc).  These  terms  are  defined  in  Aooendi*  F.  Next,  a Dor- 
tion  of  the  character  oicture  is  stored  in  consecutive 
bytes,  raster  line  by  raster  line.  Bits  that  are  "on"  (I's) 
reoresent  soace  to  be  inked  in,  ana  bits  that  are  "off" 
(O's)  reoresent  white  space.  Each  character  in  a font  is 
conceptually  set  in  a rectangular  frame  which  is  as  wide  as 


the  character's  raster  width  and  as  high  as  the  font's 


height;  hence#  a great  many  characters  have  blank  raster 
lines  close  to  the  top  and  near  the  bottom  of  the  frame. 
These  blank  raster  lines  are  not  stored  in  the  character  de- 
finition. While  the  rft  defines  the  number  of  blank  lines 
at  the  character  too#  the  drc  specifies  the  number  of  non- 
blank raster  lines  stored  in  the  definition#  and  the  number 
of  blank  lines  at  the  bottom  is  computed. 

As  an  example#  the  orocess  which  "edf"  would  perform  to 
display  a character  would  be  to  access  the  character  defini- 
tion through  the  header  table  and  to  read  in  the  four  char- 
acter dimensions.  Now#  if#  for  example#  the  raster  width  was 
17#  then  3 bytes  wou I a be  required  to  store  a single  raster 
line#  the  third  byte  having  its  rightmost  7 bits  wasted.  The 
next  three  bytes  hold  the  next  raster  line#  and  so  on. 
"Edf"  must  display  a number  of  blank  lines  equal  to  rft.  It 
must  then  read  and  display  the  nonblank  raster  lines  stored 
in  the  definition#  ana#  finally#  "edf"  completes  the  picture 
by  filling  out  the  character  height  with  blank  lines.  This 
process  is  similiar  to  the  Stanford  method.  A more  detailed 
explanation  and  some  statistics  can  be  found  in  Reference  b 
and  Appendix  A.  Appendix  F illustrates  character  dimensions 
in  more  detail. 
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B.  THE  DIGITIZATION  ALGORITHM 

The  digitization  algorithm  used  was  based  on  the  stan- 
dard s 1 ope/ i nt e rceot  formula  for  a line»  y = m*x  + b , 
After  determining  the  logical  too  and  bottom  of  a character, 
the  end“points  of  each  line  in  the  vector  definition  were 
read  into  the  program  and  the  slope  and  intercept  were 
determined.  Then  the  line  was  scanned  from  too  to  bottom 
and  from  one  side  to  the  other  using  a "for”  loop  within  a 
"for"  loop.  These  integer  values  were  converted  to  floating 
Doint  with  an  assignment  statement?  if  those  values  were 
within  the  reouired  tolerance  of  the  line  being  scanned, 
then  that  unique  bi^  was  changed  from  0 to  1. 

C.  CONSIDERATIONS 

1.  Storage  Reauirements 

An  important  consideration  in  design! no  the  computer 
typesetting  system  was  the  amount  of  storage  that  would  be 
reouired  to  hold  the  digitized  fonts.  All  of  the  vector  de- 
finitions, for  example,  were  in  the  5-7K  bytes  range!  the 
comparative  figures  in  Aooendix  0 reveal  that  a 10  point  di- 
gitized font  reauires  apo r o * i ma t e 1 y that  much  storage.  At 
smaller  ooint  sizes  less  storage  is  reauired  for  digitized 
fonts  than  for  the  vectors,  but  as  ooint  sizes  increase  the 
storage  reauirements  rise  dramatically. 

To  minimize  the  storage  reou i r emen t s , all  programs 
designed  for  this  system  used  the  convention  mentioned  in 
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oaragrao^’  where  only  the  rows  actually  containing  data 
were  stored  in  memory.  All  rows  containing  zeros  were  added 
by  the  various  programs  as  they  executed.  This  technioue 
reduced  the  storage  reouirements  s i gn i f i c an t 1 y » especially 
where  most  punctuation  and  lower  case  letters  were  con- 
cerned. 

In  addition,  only  one  array  of  words  was  used  to 
hold  each  character  individually  as  it  was  being  digitized; 
this  size  allowed  the  digitization  of  the  largest  characters 
allowed,  but  was  considerably  smaller  than  an  array  that 
would  holc^he  entire  font  during  digitization  would  have 
been.  As  one  character  was  completed,  its  bit  picture  was 
written  to  the  designated  file  and  the  array  was  zeroed  out 
in  preparation  for  the  next  character.  After  the  last  char- 
acter in  the  font  had  been  digitized  and  written  out,  the 
blank  (octal  OUO)  was  added  to  the  font  and  the  header  table 
was  written  at  the  front  of  the  file.  This  method  used  a 
minimum  of  Storage,  since  only  519  extra  bytes  (used  as  a 
place-holder  for  the  header  tanle)  were  stored  at  any  one 
time. 


2 . Sizing 

Every  effort  was  made  to  make  all  necessary  vari- 
ables proportional  to  the  size  of  the  font  being  digitized. 
Since  Hershey's  vector  definitions  were  egu ivalent  to  a 10 
point  font,  that  raster  height  (29  pixels)  was  used  as  a 
ease  for  determining  the  p r ooo r t i ona I i t y constant  for  modi- 
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tying  the  widths  of  the  characters  app roo r i at e 1 y . 

Two  steps  were  necessary  to  determine  font  and  char- 
acter heights.  Firsts  the  tallest  upper  case  letter  and  one 
of  the  lower  case  descenders  were  scanned  to  obtain  a base 
line  and  a logical  height  for  the  font.  Then  the  largest 
characters  in  the  font  were  scanned  to  determine  a constant 
which  would  adjust  the  character  heights  to  fit  the  desired 
raster  height.  The  logical  height  and  base  line  were  ad- 
justed by  this  amounts  and  the  program  could  begin  the  di- 
gitization process. 

3,  Programming  Technigues 

One  important  consideration  was  to  be  able  to  ad- 
dress locations  in  memory  up  to  the  maximum  font  size  al- 
lowed. Since  even  a "char  *otr"  declaration  allowed  only 
65K  adoressable  bytes  and  permitted  tne  possibility  of  the 
left "most  bit  being  interpreted  as  a sign  bit  in  arithmetic 
operations^  the  address  pointer  was  declared  as  a long  in- 
teger. The  32  bits  were  not  all  necessary  because  other 
limitations  allowed  the  use  of  only  18  bits>  but  it  did 
prevent  unusual  occurrences  during  mathematical  operations. 

Shifting  operations  were  done  in  many  places  ratner 
than  a normal  arithmetic  operation*  especially  where  the 
long  integer  was  involved*  for  just  that  reason.  Some  bit 
maskina  was  also  necessary*  normally  to  orevent  a sign  bit 
from  propagating  across  a byte. 
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U.  Tyoes  of  Lines 

After  the  slope  of  a line  was  determined/  the  execu- 
tion flow  carried  the  line  into  four  oossible  sections  of 
code.  Because  of  the  way  that  the  algorithm  was  arranged/ 
it  was  necessary  to  treat  vertical  lines/  horizontal  lines/ 
and  lines  with  positive  or  negative  slopes  each  somewhat 
di f f erent 1 y . 

It  was  difficult  to  arrive  at  a grouo  of  tolerances 
for  lines  with  different  slooes  that  would  allow  the  lines 
to  mesh  smoothly  to  form  a character.  These  tolerances  were 
usea  to  dettrmine  whether  or  not  a particular  bit  in  the 
character  picture  lay  close  enough  to  the  line  being  digi- 
tized to  be  switched  from  0 to  1.  A step  function  was  used 
to  determine  the  tolerances  to  be  used  for  lines  with  slooe 
values  between  certain  limits?  as  a result/  there  is  some 
overshoot  at  points  where  slopes  change  enough  to  o-ass  from 
one  set  of  tolerances  to  another. 


At  first/  nearly  horizontal  lines  near  the  tops  and 
bottoms  of  curved  characters  (0/  Q/  C/  etc.)  tended  to  ei- 
ther overshoot  significantly  or  to  vanish  completely.  Then 
horizontal  and  vertical  lines  grew  out  of  oroportion  to  the 
rest  of  the  character.  Some  of  these  problems  are  illus- 
trated in  FIGURE  5.  Eventually/  the  characters  became  more 
and  more  recognizable.  The  method  used  to  smooth  out  the 
digitization  involved  studying  the  characters  digitized  with 
one  set  of  tolerances  with  "edf"/  then  graohing  the  charac- 
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ter  from  the  vector  definitiorif  deciding  how  much  tolerance 


was  required  for  slope  values  between  certain  limits/  and 
beginning  the  loop  over. 
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FIGURE  5.  Problems  in  Digitization 

Horizontal  ana  vertical  lines  tended  to  grow  thicker 
when  digitized/  so  their  widths  were  reduced  programmatical- 
ly by  approximately  half.  The  tolerances  necessary  for 
these  lines  were  apo r ox i ma t e 1 y one-half  those  of  the  tight- 
est tolerances  used  for  slooino  lines.  Sloping  lines  had  to 
be  thickened  by  the  same  means/  but  even  here  there  was  a 
difference/  lines  with  a slope  that  was  very  close  to  hor- 
izontal requireo  an  even  larger  assist  than  did  other  lines. 
Lines  with  slopes  between  O.S  and  -0.5  (nearly  horizontal) 
reauireo  very  tiaht  tolerances  to  xeeo  them  from  thickening 
excessively/  while  lines  between  0.5  and  3.0  and  between 
-0.5  and  -3.0  received  somewhat  larger  tolerances.  Lines 
with  slopes  from  3.0  to  7.0  and  from  -3.0  to  -7.0  were 
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essentially  left  alone/  but  lines  with  slopes  greater  than 
7,0  or  less  than  -7.0  (nearly  vertical)  required  very  loose 
to  1 erances • 

In  general/  characters  such  as  "A",  "m",  ”Z",  and 
others  that  were  essentially  composed  of  straight  lines/  no 
matter  what  their  slopes/  transitioned  from  vector  to  raster 
form  clearly  and  were  very  clean.  This  resulted  largely  be- 
cause the  same  tolerance  was  used  by  the  algorithm 
throughout  the  line  and  the  character.  In  other  words/ 
there  were  very  few  breaks  in  the  continuity  of  the  lines 
that  defined  the  character.  There  were  minor  problems  such 
as  notching  in  the  base  of  the  "M"  or  in  the  point  of  the 
"A"  and  a thickening  in  the  right  foot  of  the  "A"  and  the 
"X"/  these  were  not  immediately  obvious/  especially  at  point 
sizes  that  would  normally  be  used  for  typesetting. 

Characters  such  as  "0"/  "Q"/  "d"/  "c"/  and  others 
that  required  the  use  of  many  small  lines  to  approximate 
curves  were  usually  ragged  in  places  after  digitization. 
Because  different  tolerances  were  used  on  lines  that  were 
linked/  the  effect  was  not  as  smooth  as  it  was  for  the 
straight  line  characters.  As  a result/  characters  of  this 
type  sometimes  aooear  somewhat  ragged/  especial Iv  at  larger 
point  sizes  where  this  effect  is  easily  discernible. 

5.  Floating  Point 

Floating  point  arithmetic  was  used  extensively  in 
the  digitization  process.  rthile  this  made  the  program 


slightly  slower,  it  had  been  decided  beforehand  that  float- 
ing point  was  necessary  to  achieve  the  accuracy  required  to 
prevent  holes  or  extraneous  lines  and  bits  from  appearing  in 
the  dot  matrix. 

0.  LIMITATIONS 

1 . Time 

One  of  the  lesser  limitations  imoosed  upon  the  user 
in  this  area  is  the  time  required  to  oigitize  a Hershey 
font.  While  tfw?  time  required  sometimes  seems  out  of  pro- 
portion, especially  with  larger  or  more  complex  fonts,  many 
of  the  reasons  for  this  seeming  slowness  have  been  exolained 
previously.  In  addition,  the  time  required  to  digitize  the 
largest  fonts  possible  is  still  on  the  order  of  approximate- 
ly 15  minutes  at  the  worst.  The  times  can  be  improved  by 
digitizing  fonts  at  times  when  system  usage  is  low,  and  by 
digitizing  fonts  only  once  and  storing  them  between  uses. 
This  snould  be  the  normal  mode  of  operation  when  using 
Hershey  fonts. 

2.  Appearance 

The  appearance  of  most  fonts  at  larger  sizes  has  al- 
ready been  discussed  to  some  extent  and  a comparison  of  the 
Duplex  Homan  font  at  10,  20,  30,  and  ^0  point  sizes  is 
available  in  Appendix  R.  On  the  whole,  the  program  will  di- 
gitize fonts  fairly  well  up  to  the  size  limitations  dis- 
cussed in  the  next  section.  Fonts  with  more  vectors  in  the 


character  definition  will  not  be  as  ragged  as  those  with 
only  a few  lines. 


3 . Size 


An  initial  design  decision  was  "nade  to  limit  the 
fonts  to  a raster  height  of  255  oixels#  which  is  equivalent 
to  91  Doint.  As  a result#  the  array  declared  in  "makehf"  to 
hold  each  digitized  character  definition  as  it  is  converted 
is  designed  to  hold  one  character  255  pixels  high  by  255 
pixels  wide  at  its  maximum. 


An  additional  constraint  is  imposed  by  the  structure 
of  the  font  files.  Because  the  character  width  and  a block 
count#  if  present#  each  occupy  a byte#  the  maximum  value  for 
the  block  counter  is  255.  As  the  block  counter  aporoaches 
that  figure#  specifically  at  253  blocks#  the  program  will 
switch  modes  and  use  the  same  block  counter  from  that  point 
on#  but  the  byte  counter  will  be  reset  and  will  increase  up 
to  65535.  This  will  permit  the  user  to  approach  200K  bytes 
for  the  digitization. 


The  size  of  a character  that  can  be  edited  by  the 
font  editor  is  arbitrarily  set  at  42  ooint#  the  size  of  the 
largest  already  digitized  font  available#  SIGN41.  There- 
fore# Mershey  fonts  :aroer  than  this  can  be  created#  but 
they  cannot  be  edited.  However#  they  are  still  usable  by 


’prfont"  and  "signmkr". 
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IV,  CONCLUSIONS 

A.  A COMPUTERIZED  TYPESETTING  SYSTEM 

The  initial  comouterized  typesetting  capability  at  NPS 
has  been  expanded  considerably  as  a result  of  thesis  efforts 
described  in  this  paper  and  in  Reference  6.  Spec i f i c a I 1 y » 
^8  variable  width  fonts  in  a variety  of  sizes  ana  styles 
have  been  added.  These  efforts  are  incomplete  in  that  a 
virtual  typesetter  that  sets  variable  width  fonts  has  not 
yet  been  imolemented;  however^  an  additional  program  has 
been  written  which  will  set  these  fonts  and  which  performs  a 
limited  number  of  text  formatting  functions. 

At  the  present  time»  this  expanded  typesetting  system  is 
designed  to  use  four  programs.  The  user  has  "edf"  and 
"makehf"  available  to  create  or  modify  fonts»  and  "prfont" 
and  "signmkr"  are  available  to  display  his  efforts.  The 
font  editorr  "edf"»  has  been  expanded  and  modified  consider- 
ably; it  is  documented  in  Appendix  A.  The  program 
"makehf",  which  is  de«crihed  in  the  previous  chapter,  was 
the  end  result  of  the  author's  thesis  efforts  and  orovioed  a 
substantial  contribution  to  the  increased  capability  of  the 
NPS  comouterized  typesetting  system.  This  orogram  allowed 
the  user  to  convert  Hershey's  vector  definitions  into  dot 
matrix  reoresentations  that  could  be  used  by  th»  computer; 
these  definitions  could  be  conve"ted  to  a variety  of  sizes. 
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subject  only  to  a few  limitations. 

The  aisplav  routines  developed  for  the  system,  "prfont" 
and  "signmkr",  are  described  in  Aopendix  D,  together  with 
the  vector  disolay  routine  "drawhf".  "Prfont"  is  designed 
to  display  one  font  at  a time  by  examining  the  header  table 
and  orinting  all  defined  characters  in  the  desired  font. 
"Signmkr"  is  more  sooh i st i cated,  and  allows  the  user  to 
specify  a limited  set  of  text  processing  commands  to  set 
type  to  his  soec i f i c a t i ons  . 

B.  AOVAfJTAGES/DISAOVANTAGES 

1 . Advantages 

The  adaptation  of  the  Hershey  fonts  for  use  in  com- 
Duterized  typesetting  has  improved  both  the  Quality  and  the 
variety  of  fonts  available  for  use.  It  is  now  possible  for 
a user  to  access  more  elaborate  fonts,  or  to  access  fonts  in 
several  different  alohabets.  These  could  now  be  used  for 
soecial  puroose  aoo 1 i c a t i on s or  for  accenting  or  highlight- 
ing standard  orinting  applications. 


This  scheme  also  allows  the  creation  of  fonts  at 
larger  si^es  than  are  available  through  the  SAIL  set.  The 
algorithm  holds  up  well  at  large  sizes  for  most  fonts  and 
leaves  very  few  holes,  especially  on  Triplex  or  Gothic  fonts 
where  a large  numper  of  vectors  are  useo  to  make  up  the 
character  definition. 
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For  most  purooses#  the  Hershey  fonts  digitize  ex* 
tremely  well.  There  are  usually  only  a few  holes#  even  at 
very  laroe  point  sizes#  in  most  fonts.  They  tend  to  break 
UP  at  0 point  or  smaller  (due  to  pixel  size).  Above  50 
point  (because  of  line  spread)  some  small  extraneous  lines 
may  appear.  In  the  range  that  would  include  most  normal 
uses  the  digitized  Hershey  fonts  are  serviceable#  with  the 
exotic  fonts  looking  especially  good. 

2.  Disadvant  aaes 

The  vector  digitization  method  has  several  disadvan- 
tages over  and  above  the  current  lack  of  a virtual 
typesetter  previously  mentioned.  First  of  all#  it  is  slow# 
especially  for  larger  ana/or  more  complex  fonts.  Therefore# 
it  is  not  Suitable  for  on-line  digitization  of  individual 
characters.  However#  this  is  easily  overcome  by  deciding 
beforehano  which  fonts  will  be  reauired  and  then  digitizing 
tnem  before  beginning  the  tyoesetting  process. 

Secondly#  the  algorithm  is  somewhat  inefficient.  A 
large  portion  of  the  overhead  is  incurred  through  the  use  of 
floating  point  arithmetic  and  this  was  deemed  necessary. 
However#  some  time  is  also  lost  in  array  accessing;  the 
conversion  from  arrays  to  Pointers  could  increase  the  digit- 
ization speed  somewhat. 

In  addition#  the  algorithm  begins  to  leave  holes  in 
the  digitization  as  fonts  become  extremely  large.  An  excep- 
tion is  the  Duplex  Roman  font#  which  begins  to  break  up  at  a 
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very  small  size  because  of  the  arrangement  of  its  component 
vectors.  In  general*  this  is  not  a significant  problem  with 
most  fonts. 

C.  PEPFOPMANCE  EVALUATION 

1.  Testing  the  Algorithm 

To  determine  which  parts  of  the  algorithm  reauired 
the  most  execution  time*  an  execution  profile  was  run  on  the 
program  under  a variety  of  conditions.  A "monitor"  system 
call  was  inserted  into  the  beginning  of  the  digitization  al- 
gorithm so  that  the  entire  program  could  be  orofilea*  and 
the  program  was  then  compiled  using  the  shell  commana  "cc  -c 
-f  -0  -S  makehf.c"*  the  ooject  file  resulting  from  that  com- 
mand was  loaded  using  "Id  /lib/fcrtO.o  makehf.o  -la  -Ic". 
The  "a. out"  file  produced  by  the  load  was  then  used  to  digi- 
tize the  Simplex  Roman  font  at  multiples  of  10  points 
between  10  and  70  points.  These  profiles  provided  the  test 
data  used  below;  other  fonts  were  digitized  for  comparison 
ourposed  as  noted  in  paragraph  3. 

2.  The  Execution  Profile 

The  execution  profile  revealed  that  one  section  of 
the  orogram  reauired*  as  a minimum*  approximately  b0%  ni  the 
program  execution  time.  This  section  consisted  of  the  four 
"for"  loop  pairs  previously  described  in  Chapter  III.  These 
loops  are  for  horizontal  and  vertical  lines  and  lines  with 
positive  or  negative  slooes.  The  majority  of  the  floating 
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point  arithmetic  was  used  in  these  loops  to  scan  each  line 
in  the  character  defintion  and  to  turn  on  the  appropriate 
Oits  in  the  character  picture. 
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The  table 

be  low  can 

be 

used  to  compare 

t h ree  ouan  t i - 

ties: 

the  point 

size  of 

the  digitized  font 

, the  time  re- 

qu i reo 

to  digitize  the  font 

t 0 

that  point  size»  and  the  to- 

tal  time  that 

the  program 

spent  in  the  four  digitization 

1 oops 

t oget  her . 

The  "real" 

time  reouired  to  digitize  a font 

versus 

the  point 

size  is  shown 

is  figure  6,  as 

is  the  "user" 

(CPU) 

time  versus 

point  size 

• 

The  point  size 

versus  percen- 

t age 

of  time  spent  in  the 

digitization  loops  is  shown  in 

FIGURE 

7. 

X 

TIME 

spent  i n 

Real 

User 

System 

digitization 

HSRIO 

63.3 

0:26.0 

0:10.8 

0:08.7 

HSRcJO 

73.7 

0:5R.0 

0:35.5 

0:08.2 

HSR30 

78.0 

1:27.0 

1:12.9 

0:09.0 

mSR40 

80.3 

2:44.0 

2:04. b 

o:  12.5 

HSR50 

80.7 

5:22.0 

3:14.3 

0:19.5 

HSRoO 

82.1 

R:  33.0 

4:34.6 

0:30.3 

HSR70 

81.8 

O 

• 

o 

6:14.6 

0:34.8 

3. 

Di f f erent 

Fonts 

Several  more  complex 

fonts  were  digitized  at  various 

DO  i n t 

sizes  to 

determine  whether  or  not  the 

performance  of 

the  algorithm  would  be  affected,  While  the  percentages  of 
time  spent  in  the  different  digitization  loops  aetermined  by 
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the  slopes  of  the  lines  were  different»  the  overall  amount 


of  time  spent  in  those  portions  of  the  algorithm  remained 
approx-i  mat  e 1 y the  same.  If  anything,  the  total  times  for 
the  digitization  loops  were  slightly  less  for  the  more  com- 
plex fonts  than  for  the  simpler  fonts?  however,  the  times  in 
the  "read"  portions  were  slightly  higher  because  more  lines 
had  to  be  read  in. 

y . Cone  1 us i ons 

From  the  table  above  and  the  figures,  it  is  Possible 
to  arrive  at  two  conclusions.  One  conclusion  is  that  as 
the  point  size  increases,  the  "real"  time  reauired  to  digi” 
tize  tne  font  also  increases?  this  increase  is  non-linear 
and  is  very  slow  at  lower  point  sizes,  but  begins  to  in- 
crease dramatically  between  30  and  ^0  point.  This  reflects 
the  time  that  the  user  must  wait  at  a terminal  for  his  digi- 
tized font  file  to  be  created?  a second  time  correlation, 
not  quite  so  dramatic  as  the  "real"  time  reauired  but  just 
as  important,  is  the  c o r re  spend i ng  rise  in  "user"  (CPU)  time 
as  point  size  increases.  This  indicates  that  larger  tnts 
incur  a non-linear  increase  in  CPU  time  that  is  reflected  as 
an  even  larger  increase  in  "real"  time. 

A second  possible  conclusion  is  that  one  section  of 
the  aloorithm  contributes  significantly  to  the  time  reauired 
for  the  program  execution.  The  oercentaae  of  time  required 
in  the  digitization  looos  was  never  less  than  56  and  seemed 
to  level  out  at  just  over  PO  for  the  larger  fonts?  if  this 
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portion  of  the  algorithm  could  be  speeded  up  the  time  re- 
quired for  d i g i t i z a t i on f especially  digitization  of  the 
larger  fonts*  could  be  improved. 

It  should  also  be  noted  that  as  the  point  sizes  grow 
larger  and  the  percentage  of  time  spent  in  the  digitization 
loops  increases*  the  relative  amount  of  time  spent  in  the 
"read"  portion  of  the  program  decreases  until  it  becomes  in- 
consequential at  the  larger  point  sizes.  Therefore*  the  im- 
provement of  the  digitization  process  becomes  the  central 
problem  in  making  the  aloorithm  faster. 

D.  POSSIBLE  improvements 
1.  Better  Digitization 

\Nhile  the  present  dioitization  algorithm  is  fairly 
effective*  it  could  be  improved  in  some  places.  Procedures 
to  eliminate  extraneous  bits  or  overshoots  that  extend  out- 
side of  the  main  character  definition*  or  to  detect  and  fill 
in  small  holes  or  odd  bits  «*  i t h i n the  character  defintion* 
are  ooss i b 1 e . 

Some  of  the  raggedness  and  overshooting  in  curved 
characters  may  be  minimized  or  eliminated  by  changing  the 
tolerance  function  used.  If  a function  that  allowed  for 
gradual  changes  in  the  slope  (such  as  a sinusoid)  were  used 
in  place  of  the  step  function  currently  being  used*  the  ap- 
proximations of  curves  could  be  improved  and  any  remaining 
raggedness  would  be  more  difficult  to  see.  Rather  than  use 
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sucn  a function  in  the  orogram  itself*  the  values  should  be 
computed  once  and  then  put  into  table  form  for  program  use. 

An  additional  alternative  might  be  to  use  a means 
other  than  the  s 1 ope/ i nt e rcept  formula  for  a line  to  control 
the  digitization.  Cubic  solines  are  one  oossible  choice* 
the  use  of  solines  should  minimize  round-off  error*  and  they 
are  oerhaps  better  suited  for  digitizing  the  curves  that 
have  presented  the  majority  of  problems  during  this 
research.  Since  solines  provide  a smoother  fit  over  sparse 
data*  they  may  be  ideally  suited  to  font  digitization. 

2.  A Faster  Algorithm 

Several  means  to  increase  the  efficiency  of  the  al- 
gorithm have  already  been  mentioned*  including  minimizing 
floating  point  arithmetic*  switching  from  arrays  to 
pointers*  and  so  on.  In  addition*  since  the  vectors  are 
read  in  one  ooint  (two  bytes)  at  a time*  one  "read"  opera- 
tion that  brought  in  the  whole  character  definition  would 
somewhat  decrease  the  time  reouired  for  system  calls. 

The  "for"  loops  used  for  digitization  are  arranged 
so  that  one  goes  from  the  logical  top  of  the  character  to 
the  bottom*  but  the  other  runs  from  0 to  the  font  width. 
Since  all  of  the  font  width  is  not  usually  reguired*  this 
inner  loop  could  scan  only  the  character  width. 
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The  34  digitized  fonts  were  acquired  from  the  Artif- 
icial Intelligence  Laboratory  at  Stanford  University  and 
were  converted  to  a file  format  compatible  with  the  PDP-11 
[Ref.  61.  These  fonts  were  either  designed  at  Stanford  or 
acquired  by  them  through  the  ARPA  net  from  other  artificial 
intelligence  centers.  SAIL  fonts  use  a 7-bit  coae  similiar 
to  ascii;  however*  the  SAIL  set  uses  many  of  the  ASCII  con- 
trol codes  for  additional  printable  characters.  There  are 
some  additional  minor  differences  in  character  usage.  The 
complete  SAIL  character  set  is  listed  in  Appendix  G with  a 
complete  listing  of  all  SAIL  fonts  converted  for  use  at 
MPS. 

2,  The  Hershey  Fonts 


The  14  fonts  available  in  vector  form  were  converted 
for  iNPS  use  from  a set  of  fonts  created  by  Allen  V.  Hershey 
in  1R67  (Ref.  161.  These  fonts  offer  several  type  faces  in 
Roman*  italic*  and  script*  as  well  as  complete  alphabets  in 
Greek  and  Cyrillic*  and  in  Gothic  English*  German*  and 
Italian^  A complete  listing  of  the  Hershey  fonts  is  avail- 
able in  Appendix  £*  together  with  sample  listings  of  the 
fonts  in  digitized  form. 

The  Hershey  fonts  are  stored  in  vector  form  and  are 
not  suitable  for  use  by  typesetting  programs  until  they  are 
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converted  to  dot  matrix  form  by  the  user.  This  can  be  done 
by  using  either  the  Hershev  font  conversion  program  "makehf" 
or  the  font  editor.  These  fonts  may  be  digitized  in  any 
size  oesired  by  the  user/  subject  to  some  limitations  on  the 
programs  involved.  The  programs  required  and  their  limita- 
tions are  discussed  in  Chapter  III  and  Appendixes  A and  B. 


APPENDIX  A.  FONT  EDITOR 


A.  USING  The  font  EDITOR 
1 . Basic  St  ructure 

"Edf"  is  an  interactive  orogra'n  which  allows  a user 
to  create  new  fonts  or  to  modify  or  maintain  existing  ones. 
It  was  originally  designed  by  Professor  Barksdale  to  create 
and  manipulate  the  fixed  widths  20  x 16  pixel  fonts.  The 
current  version  of  "eof  is  considerably  larger  than  its 
predecessor,  a growth  resulting  from  the  addition  of  modules 
to  manipulate  the  more  complex  and  more  dynamic  format  of 
the  new  font  files. 

Creating  a font  may  be  accomplished  by  one  of 
several  means.  First,  a call  to  "edf’’  w i t no  arguments  in- 
dicates that  the  user  desires  to  create  a font  from  scratch. 
The  user  must  soecify  the  characteristics  of  the  new  font 
and  then  use  the  "a"  (addJ  command  to  create  specific  char- 
acters at  each  character  position.  Repeating  this  process 
for  12B  characters  can  become  exceedingly  tedious.  A more 
efficient  ootion  is  to  create  only  a few  new  characters  and 
to  then  use  the  "i"  (include)  command  to  include  other  char- 
acters from  a comoatible  font.  "Compatible”,  in  this  case, 
means  that  both  fonts  have  identical  heights  and  logical 
heights  and  that  the  characters  being  included  are  no  wider 
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than  the  maximum  character  width  of  t'he  font  being  created. 
A third  ootion.  somewhat  similar  to  the  seconds  is  to  use 
the  "d"  (delete)  command  to  remove  unwanted  characters  from 
a selected  base  font. 

To  edit  an  existing  digitizer)  font  file»  "edf"  re- 
guires  an  argument  consisting  of  either  a font  file  name  or 
a complete  oath  name.  In  the  first  case/  the  font  editor 
assumes  that  the  font  is  locatea  on  the  directory 
" / . f on t s . 0 1 / f on t / " anc  preoends  that  string  to  the  argument 
before  issuing  a system  call  to  open  that  file.  If  a com- 
plete oath  name  is  used/  "edf"  will  open  that  font  file.  If 
the  font  file  is  missing  or  if  the  font  file  contains  in- 
valid information,  then  "edf"  will  exit  with  an  appropriate 
error  message. 

A Hershey  font/  digitized  to  any  desired  size  and 
subject  to  the  limitations  discussed  later,  can  also  be 
created  using  the  font  editor.  This  is  done  by  calling 
"edf"  with  at  least  one  argument.  The  first  argument  must 
be  of  the  form  "-HXY",  where  the  minus  sign  informs  the  edi- 
tor that  it  must  oigitize  a Hershey  font  and  "HXY"  is  a 
valid  font  from  the  list  of  fonts  available  found  in  Appen- 
dix £.  This  argument  must  contain  those  four  characters. 
The  point  size  desireo  may  be  input  as  a second  argument. 
The  default  point  size  used  is  10  point/  and  the  editor  can 
edit  UP  to  only  42  point.  Whether  the  newly  digitized 
Hershey  font  is  written  to  another  directory  or  not/  the 
most  recently  created  Hershey  font  is  normally  left  on 


I 

4 


, i 


directory  "/.fonts. 01"  and  is  named  riFONT . 

Some  examples  of  valid  calls  to  "edf"  are  listed 

below: 

a ) edf 

This  indicates  that  the  user  desires  to  create  his  own 
font.  He  may  give  it  any  name  desired  when  he  writes  it 
outf  ending  the  edit  session. 

b)  edf  SlGNai 

The  user  wants  to  edit  font  file  SIGN^:!,  which  had 

better  exist  (and  SIGN41  does)  on  directory 

"/.fontS.Ol/font/SIGNai  " . 

c)  edf  /us r /doy 1 e/ f on t 3 /HTR U2 

The  user  wants  to  edit  an  existing  Mershey  font  file 

called  HTwa2»  a Triolex  Roman  font  at  ^2  point*  on  directory 
"/usr/ doyle/fonts/". 

d)  edf  HSR20 

The  user  wants  to  edit  an  existing  Hershey  font  file 

called  hSH20*  a Simplex  Roman  font  at  20  point*  on  directory 
"/. fonts. Ol/font/". 

e)  edf  -HGE  3o 

The  user  wants  to  create  a Hershey  font  file  in  the 
Gothic  English  tyoe  at  3o  point.  He  may  write  it  to  any 
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directory  after  it  has  been  digitized. 
f)  edf  -HCS 

The  user  wants  to  create  a Hershey  font  file  in  Cotrplex 
Scriot  type.  The  point  size  defaults  to  10  point/  ana  the 
font  may  be  written  to  any  directory  at  the  conclusion  of 
the  edit  session. 

In  the  edit  mode#  the  header  table/  the  font  dimen- 
sions/ and  the  font  description/  if  any/  are  read  into  the 
program  variables.  when  a specific  character  definition  is 
required  by  the  orogram/  the  bytes  containing  the  dot  matrix 
definition  of  that  character  are  read  into  a character 
buffer/  and  blank  lines  are  inserted  at  the  too  and  bottom 
of  the  definition  if  required.  ^ character  definition 
leaves  the  character  buffer  and  is  out  on  a linked  list  if 
it  has  been  modified  aurina  the  current  edit  session.  As  a 
new  character  definition  is  reauired/  it  is  read  from  either 
the  font  file  or  from  the  linked  list  if  it  has  been  changed 
previously.  Characters  which  are  not  defined  in  the  font/ 
such  as  the  control  characters  below  octal  code  OaO  in  the 
Hershey  fonts/  or  which  are  non-printable/  such  as  the 
blank/  are  flagged  ana  may  not  be  disolayed  with  the  font 
editor. 

Chanoing  the  current  character  code  will  not  cause  a 
character  definition  to  be  read  into  the  buffer  unless  it  is 
followed  by  a command  which  reauires  the  definition;  for  ex- 
amole/  or  "05b"  will  change  the  current  character  coae/ 
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but  no  definition  is  read  into  the  buffer  until  a command 
like  "1”  (list)  or  "e"  (edit)  is  given. 

Once  a character  has  been  modified*  its  new  defini- 
tion will  not  be  read  from  the  character  buffer  to  the 

linked  list  until  the  current  character  is  changed  or  until 
the  user  gives  the  "w"  (write)  command.  An  attempt  to  end 
the  edit  session  without  writing  out  a file  containing 
changes  will  generate  one  warning.  The  user  must  specify 
the  name  of  the  file  that  he  is  writing  to.  The  editor  will 
ivot  allow  the  user  to  write  to  the  same  file  that  he  is 

editing  from  or  to  write  to  ''HFONT'';  nence*  no  font  file  is 
inadvertantly  destroyed.  The  editor  writes  to  the  specified 
file*  incorporating  character  definitions  from  the  linked 
list  and  from  the  font  file*  updating  the  header  table  as 

necessary.  As  a final  gesture*  the  editor  writes  out  the 

size  of  the  file  in  decimal.  Renaming  the  new  font  file  or 
replacing  an  old  file  with  a new  one  nemains  the  responsi- 
bility of  the  user. 

Ahen  using  "eof"  it  is  most  efficient  to  complete 
all  desired  modifications  to  one  character  before  proceeding 
to  another. 

2,  Commands 

The  basic  command  line  consists  of  three  parts:  the 

current  character  selector*  the  command  itself*  and  argu-  i 

ments*  if  any*  to  the  command.  The  current  character  may  be 
considered  a pointer  to  a code  position  in  a font.  For  e*am- 


59 


r 


ple»  when  the  current  character  is  0l01»  then  any  character 
Hstinq  or  editing  will  be  directed  toward  "A"  which  has  the 
code  0101.  Whenever  a character  oicture*  or  a portion 
thereof^  is  displayed*  each  raster  line  is  composed  of  whole 
bytes.  For  example*  if  the  raster  width  is  17*  then  all  3 
bytes  required  to  hold  the  17  bits  will  be  displayed.  Chang- 
ing the  character  picture  to  the  right  of  the  17th  bit  is  a 
superficial  change*  since  mod  i f i c a t i on  s marie  outsioe  the 
raster  width  are  ignored. 

a)  <number> 

Change  the  current  character  to  <numt>er> . The 
numoer  may  be  octal  (preceded  by  a zero)  or  decimal.  Any 
number  greater,  than  127  is  converted  to  0*  and  anything  less 
than  0 is  converteo  to  127.  Any  command  may  appended  to 
<number>.  The  effect  is  to  change  the  current  character 
first  and  then  to  execute  the  appended  command. 

Examplesi  0176*  0*  161*  78c  0 25*  loa. 
b) 

Increment  (decrement)  the  current  character.  wra- 
paround occurs  as  in  <number>  above.  Either  <♦>  or  <->  may 
be  used  but  not  both  on  the  same  command  line.  Any  command 
may  be  appended  to  either*  and  thn  effect  is  to  increment 
(decrement)  the  current  character  first  and  then  execute  the 
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command.  Only  one  "♦'*  or 
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may  be  used  on  a command  line 


Examples:  +»  +e»  +c0  UO. 

c)  [<number>]  ' 1 + ] I [-la 

Add  a new  character  to  the  font  at  the  current  char- 
acter position.  The  "a"(add)  command  is  complex.  A 
"p " ( oa r ame t e r ) commano  is  executed  automatically.  Follow  the 
displayed  instructions  to  input  the  dimensions  of  your  new 
character.  Remember  that  your  new  character  is  being  defined 
at  tne  current  character.  After  exiting  the  parameter  com- 
mand loop»  you  may  use  the  "c"(chanqe)»  "e"(edit)» 
"s"(shift)»  or  "l"(listl  commands  to  +orm  the  desired  char- 
acter picture.  The  character  buffer  has  previously  been 
zeroed.  If  you  use  <number>,  or  to  change  the 

current  character  before  you  are  satisfied  with  the  new 
character  oicture»  the  unsatisfactory  picture  gets  storedl 
If  this  haopenSf  list  the  character  and  continue. 

Examples;  ta»  -a»  056a»  19a»  a. 


d)  (<number>]I[+]!(-)c(<number>l  [<number>] 

Change  lines  "s"  thru  "e"r  prompting  for  each  line, 
"c"  alone  sets  "s"  to  0 and  "e"  to  "heiaht-1".  "c"  followed 
by  one  number  sets  Doth  "s"  and  "e"  to  that  number,  "c"  with 
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two  numbers  sets  "s"  and  "e"  accordingly.  The  numbers  may  be 
octal  or  decimals  and  a space  is  reauired  between  two 
numoers . 

Examoles!  *Cr  -cO  10»  077c  1 Cr  +c  10. 


e)  d[<number>]  l<number>)  [font  file! 

Delete  characters  "s"  thru  "e".  "d"  alone  sets  "s" 
< 

to  0 ana  "e"  to  127,  effectively  aeletinq  the  entire  font, 
"d"  with  a single  number  deletes  that  ctiaracter  code.  "d" 
with  two  numbers  deletes  "s"  thru  "e"  inclusive.  Numbers  may 
be  octal  or  decimal,  and  a soace  is-  reauired  between  two 
numbers . 

Examples!  d,  dS,  d 0176,  d 0 057. 


f)  [<number>I  I (tl  ! I-) e (<number>]  C<number>J 

Edit  lines  "s’*  thru  "e",  prompting  for  each  line, 
"s"  and  "e"  are  set  as  in  "c"(chanqe).  While  editing  a line, 
"cntl“d"  completes  the  line  as  it  was.  This  command  uses 
th-  NPS  line-editor  functions  in  the  terminal  hanoler. 

Examples!  e,  077e0  10,  +e  3 5,  -e,  017e  12. 
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Turn  on  (off)  a f 1 aa  controlling  the  display  of 
character  dimensions.  Once  turned  on,  character  dimensions 
are  displayed  every  time  a character  definition  is  fetched. 
Displaying  is  turned  off  by  a subseauent  "f".  "f"  may  be 

prepended  to  anv  command. 

Examples;  f»  fl»  >fe  0 10»  0176fl  0 10. 

h)  i (<number>]  (<number>l  filename 

Include  characters  "s"  thru  "e"  from  the  font  file 
"filename".  "s"  and  "e"  are  set  as  in  the  "d"(delete)  com- 
mand. If  the  font  file  being  edited  or  created  and 
"filename"  are  not  compatible#  then  the  include  will  not  oc- 
cur. Suoseauent  uses  of  "i"  do  not  require  "filename";  un- 
less# of  course#  you  wish  to  include  from  another  font  file. 

Examples;  i 0 057  0DJ9#  i HCS20#  i. 
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i ) (<number>) 1 (♦) 1 (-) 1 (<number>)  (<number>J 


List  lines  "s"  tnru  ”e"  of  the  current  character, 
"s"  and  "e"  are  set  as  in  "c"Cchanoe). 

Examples;  +1  0 10#  -1,  1#  07ol#  1 12. 


( 

i 

5 


63 


I 

! 


i 


i 


1 


j ) n 

DisoJav  the  font  description  and  a table  reflecting 
the  status  of  the  edit  session.  The  description  tells  you 
what  you’re  editing,  if  you've  forgotten.  The  table  is  a 
handy  way  to  keeo  track  of  how  much  you've  accomplished. 

Exampl e : n . 


k ) p 

The  "p" (parameter ) command  executes  an  interactive 
module  of  "edf"  which  allows  you  to  modify  character  and 
font  dimensions  and  description.  A set  of  instructions  will 
be  displayed  and  may  be  recalled  if  reouired.  This  module  is 
duite  versatile.  Keep  in  mind  that  character  and  font  dimen- 
sions are  being  changed,  not  character  pictures. 

E X amp  1 e : o 


1 ) g 

Quit  warns  you  if  you've  made  changes  and  have  for- 
gotten to  write  them  out?  otherwise,  it  exits,  closing  any 
open  f i 1 es . 

E X amo 1 e : g . 
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m)  [<number>]  ! 1 + ) ! (-Isl  Irluld  t<number>]  [<number>l 


Shift  lines  "s"  thru  "e"  one  pixel  1eft(1)» 
right(p)»  uo(u)»  op  down(d).  The  pesulting  lines  ape  au- 
tomatically displayeO.  "s"  and  "e"  are  set  as  in 
"c " (change) . 

Examples;  fslO  10»  044su  SPr  -sd. 


n ) M filename 

Wpite  out  the  font  file  being  edited  op  cpeated  to 
"filename".  "w"  must  have  a "filename"  and  will  not  allow 
you  to  wpite  to  the  font  file  being  edited,  "w"  displays  the 
byte  size#  in  decimal#  of  "filename"  ang  then  pepfopms  a 
"g"(guit).  Be  oatientl  Writing  out  a font  file  taxes  longep 
than  wpiting  out  a nopmal  file. 

Examples:  w temp#  w /. font s . 0 1 / font /mC  1 20  . 


o)  <Pubout> ! <bpeak> 

Eithep  key  causes  an  inteppupt  which  is  tpapped. 
whatevep  was  going  on  is  stooped#  the  opevious  enviponment 
pestopeo  (the  command  loop  is  Peentened)#  and  you  may  con- 
tinue. Neithep  key  undoes  anything;  they  mepely  give  a 
mechanism  foP  Killing  commands  without  killing  the  ppogpam. 
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3.  Li  mi  tat i ons 


There  are  two  types  of  limitations  to  "edf".  First, 
there  are  some  commands  implemented  in  the  original  version 
which  are  not  available  in  the  current  version.  They  in- 
c 1 uaed  "nice  to  have"  commands  such  as  folding  character 
pictures,  italicizing  fonts,  and  producing  bold  fonts. 
These  commands  were  not  included  due  to  time  constraints  but 
could  easily  be  added  in  the  future.  Secono,  "edf"  has  not 
had  a thorough  testing.  There  are  many  checks  throughout 
the  program  which  were  included  to  detect  bad  font  files  and 
to  prevent  the  program  from  "crashing".  "Edf"  is  gooo  at 
screening  commands  ana  at  flagging  bad  ones.  Although  it  is 
possible  to  string  some  commands  together  on  one  command 
line,  some  combinations  are  bound  to  produce  strange 
results.  It  is  safe  to  combine  commands  only  as  described 
in  the  preceding  section.  Despite  its  limitations,  "edf"  is 
an  extremely  useful  tool.  It  was  developed  early  in  the 
thesis  research  and  used  extensively  to  purge  and  inspect 
fonts. 


i 
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EOF 


30  April  1977 


EOF 


NAME 


edf  --  font  editor 


SYNOPSIS 

edf  < "Hershey  font  [point  size!  > I < SAIL  font  > 1 
< Hershey  font  > 


DESCRIPTION 

"Edf*  is  an  interactive  font  editor  that  orovides  a 
means  of  creating  and  maintaining  fonts.  If  called 
with  no  arguments  it  will  enter  the  "create"  mode.  If 
given  just  the  font  name»  it  will  prepend 

"/.fonts. 01/font/”.  The  editor  will  also  accept  a 
full  path  name.  "Edf"  also  digitizes  Hershey  fonts  to 
a specified  ooint  size.  ' 

I 

Because  of  the  size  of  the  buffer  used»  "edf"  can  be 
used  only  for  characters  below  120  pixels  ( 42  point  ) 
in  size.  All  of  the  digitized  fonts  are  less  than 
that  sizer  anc  the  editor  will  not  create  hershey 
fonts  over  that  size. 

Command  Summary: 

< number  > Change  the  current  character  to  <number> 


+ 1 - 


I nc remen t /dec  remen t the  current  character 


Add  a character 


C h ange  a line 


Delete  a character  or  a font 


Edit  a line 


Turn  on/off  character  dimensions 


Include  a character 


List  the  current  character 


Display  the  status  of  the  edit  session 
Modify  character  and  font  dimensions 


Guit^  end  the  edit  session 


Shift  [1]  I [r]  ! (uJ  ! (dl 
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write  to  a file 


<rubout> 


Reenter  the  command  loop 


<break> 


Reenter  the  command  loop 


FILtS 


/. fonts. Ol/hFOMT 
/. fonts. 01/makehf 

/. font s . 0 1 / font /<SA IL  font>  1 <Hershey  font> 


SEE  ALSO 

makeh  f 


BUGS 


A call  to  the  ^ont  editor  must  contain  the  correct 
name  of  the  font  file  desired.  No  input  checking  is 
done;  the  only  errors  that  will  be  detectea  are  those 
that  occur  when  trying  to  ooen  a non-existant  file. 

"Edf"  tries  to  tell  you  that  the  Hershey  Complex 
Cyrillic  (HCC)  font  has  characters  at  octal  codes  000 
and  003»  when  the  characters  are  in  reality  at  001  and 
00a . 
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/ * 

*/ 

/* 

edf .c  */ 

/ * 

* / 

^define  error  return(l); 

i nt 

readfp»  writefo; 

//file  descriptors 

i nt 

Dt  s ’ ze; 

//Hershey  font  point  size 

i nt 

Did; 

//Child  process  id 

i n t 

f r eenode } 

//ptr  to  next  free  node  in  llist 

i nt 

i n f 0 n t ; 

//current  character 

i nt 

w r f 1 ag ; 

//initially*  0.  incremented  on 
//any  change  to  flag  a ouit  without 
/ / w r i ting 

i n t 

w r / 

//flag  to  turn  off  displaying  of 
//diagnostics  during  file  writing 

i n t 

max; 

//32677  used  to  denote  base  node 

i nt 

ht»  maxw»  Iht; 

//font  dimensions 

i nt 

blWc;  char  *bytc; 

//block*byte  counters 

i nt 

edit; 

//set  to  1 when  in  eait  mode 

i n t 

delete; 

//flag  in  checking  for  empty  fontfiles 

i n t 

tht/  tmaxw»  tlht; 

//temp  font  dimensions 

i n t 

dim; 

//char  dim  diplay  control  switch 

i n t 

include; 

//flag  preventing  access  to  llist 
//during  an  include  command 

i n t 

r w » 1 k » r f t ; 

//character  dimensions 

i n t 

bot  r by tes»  drc  ; 

/ / .. 

i n t 

s / e; 

//command  arguments 

i nt 

i n ; 

//I  if  current  character  definition  is 
//in  character  buffer,  0 otherwise 

i n t 

c » peekc ; 

//characters  on  the  command  line 

i n t 

first*  last; 

//line  Dtrs  in  character  buffer 

i nt 

Chmod; 

//I  if  char  in  buffer  was  modified 

i n t 

* n ; 

//integer  pointer 
//O*  otherwise 

i nt 

sg  1 1 y 1 5 1 ; 

//buffer  for  gtty(II) 

i n t 

savet  t y ; 

//terminal  status 

i nt 

on i n t r ( ) ; 

//address  of  interrupt  trap 

i n t 

*c  h a r de  f * *d 

//character  pointers 

char 

c s t at  ; 

//holds  status  of  char  in  char  buffer 

char 

des {801  ; 

//holds  font  description 

char 

i bu  f (3b)  ; 

//buffer  for  read(II) 

char 

tbuf laoooi ; 

//character  buffer 

i n t 

hd r [256]  ; 

//hdr  table  of  ed i t ed/ c r ea t ed  font 

i nt 

f hdr [2561  ; 

//temp  hdr  table  during  an  include 

struct  node 


i n t c ode ; 
char  *def } 
i nt  ns i ze  f 
Char  stat? 
struct  node 
I 1 i St  ; 


*ne  * t r 


//a  node  holds  info  on  a single 
//character  storeo  on  the  llist 
//character  c ooe 
//Dtr  to  char  definition 
//size  of  new  definition 
//status  of  modification 
//otr  to  next  node  in  Itist 
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struct 

node 

♦head; 

//ot  r 

to 

head 

of  1 1 i St 

s t rue  t 

node 

♦ a va i 1 ; 

//pt  r 

t 0 

next 

free 

node 

St  rue  t 

node 

♦current; 

//pt  r 

t 0 

node 

found 

in  FIND 

struct 

node 

♦ i nsert ( ) 

; //node 

returned  by 

INSERT 

char  r f on  t f i 1 e C <<  0 1 ; //fontfile  being  included  from 
char  w f ont f i 1 e 0]  ; //file  being  written  to 
char  sfontfi le  [^0]  {"/.fonts. 01/font/"}  » 

//pathname  header  of  fontfile  to 
//be  edited 

char  h f s i ze  15]  { " 1 0 " } ; //default  ot  size  for  Hershey  font 

ma i n ( a rgc  » a rav ) 

int  argc;  char  **argv;  { 
i nt  i ; 

if  (argc  > 1)  { //argument s->edi t mode 

if  (argvlll  10]  ==  {//digitize  Hershey  font 

if  (argc  ==  3)  {//check  any  ooint  size 

if  (Cotsize  = a t o i ( a rgv C 21 ) ) > ^2)  { 

orintfC "ooint  size  exceeds  ^2"); 
e X i t ( ) * 

} 

0 = h f s i ze ; 

for(i=0;(*p++  = argv(21[i])  i=  *\0';i++); 

> 

p i d = f or k ( ) ; 

if  ( p i d 1 = 0 ) 

while  ( pid  i=  wait()  ) ? 
else  //create  process  to  digitize  Hershey  font 
execl ("makehf","makehf"rargv(l] »hfsize»0); 
readfp  = open ( " / , f on t s . 0 1 /HFONT " ^ 0 ) ; 

} 

else  if  ( arqvll)  (01  ==  '/'  ) {//full  pathname 

readfp  = open (argv  [ 1 1 » 0 ) ; 

} 

else  { 

o = a rg V ( 1 ] ; 

for(i=lb;(sfontfileCil  = *o++)  1=  '\0';i++)» 
readfo  = ooen ( s f on t f i 1 e » 0 ) ; 

} 

edit  = 1 ; 

} 

i n i t ( ) ; 

s i qna 1 ( 2 » on i n t r ) ; //set  interrupt  trap 
while  ( 1 ) ( 

setex i t ( ) ; 

printf("\n%3o>  ">infont)» 
oeekc  = (peekc  ==  '\n')  ? 0 ; oeekcJ 
i f (command ( ) 1 { 

printf ("?\n"l; 

if  (peekc  1=  *\n')  wh i I e C ( c =ge t c ( ) ) !=  '\n'}  » 

} 

} 

} 

i n i t ( ) { 

J 


i nt  i ; 

if  (edit)  ( 

if  (readfp  > 0)  fonthdr(); 
else  ( 

pri nt f ( " f ont f i 1 e not  found\n"); 
ex  i t ( ) ; 

) 

> 

else  {//create  mode 
zhdr(hdr); 

pr i nt f ( "\nf ont  height  ? ")/ 
wh i 1 e ( ( h t =ge t num ( ) ) < 0 I|  ht  > 120)  { 

peekc  = O;  pp i nt f ( "he i gh t ? ")»  ) 

DPintfC"  Xd  lSn",ht)J 
peekc  = 0; 

pr i n t f ( " ma X i mum  character  width  ? "); 

wh i 1 e ( ( ma X w=ge t num ( ) ) <01!  maxw  > 256) 
peekc  = 0;  orintf("^axwidtn  ? ");  > 

printfC"  Xd  l\n"»maxw)» 
peexc  = 0; 

pr i nt f ( " 1 og i ca 1 height  above  baseline  ? "); 

wh  i 1 e ( ( 1 ii  t =ge  t num  ( ) ) <0  11  Iht  > ht)  { 

peekc  = 6;  orintfC'lht  ? ");  ) 

orintf("  Xd  l\n", Iht); 
peekc  = 0; 

printf("Tvoe  in  any  one-line"); 

orintfC"  font  description,  if  des i red  . \n  " ) ; 

getname (des ) ; 

> 

max  = 32677;  wrflag  = 0; 

head->code  = max; 

head->next  = 0;  chmod  = 0; 

include  = l;  freenode  = 1; 

i nf ont  = 0 ; wr  = I ; 

head  = llist;  avail  = &l)istfl); 


zhar(h)  //zero  a hdr  table 
i n t h n ; { 

regi ster  i nt  i ; 
n = h; 

f or ( i =0; i <256 ; i ♦+ ) *n  + t; 


int  qetcC)  {//return  next  cnar  in  command  line 

i f (peekc ) { 

c = peekc; 
peekc  = 0; 

} 

else  { 

c = qetchar(); 

if  (c  ! = ' ' ) oeekc  = c ! 

> 

ret  urn  (c  ) ; 


71 


y 


#onthdr()  {//read  hdr  table  and  font  dimensions 
int  i;  chap  t» 
read(readfp»hdr»512); 
read(readfp»Sht»2); 
pr i nt f ( "\nHei dht  %c 
i f (ht  > 120  ! 1 ht  < 0)  { 

printf("too  high”)?  exitC)?  > 
readtreadfp/8,maxw/2); 

pp i nt f I "Max i mum  chapactep  width  %d  "»maxw)? 
ifCmaxw  > 25b  !!  maxw  < 0)  { 

ppintf("too  wide")?  exit()?> 
pead(peadfpf&1ht»2)? 
ppintf("Logica1  height  %d\n"f1ht)? 
if(lht>ht!llht<0)  f 

ppintf("too  high")?  exitC)?) 
seeic(peadfpf51fl»0)  ? 
p = des?  t = 1? 
for(i=0?  t :=  '\0'?it+)  { 

pead  ( peadf  o » t » 1 ) ? 

*p++  = t? 

> 


int  getnumC)  {//convert  numeric  string  and  rtrn  value 
int  i f base? 
i = 0? 

while((c  = getc())  =~  ' ')  ? 

i f (c  >=  'O'  &&  c <=  *9’  ) { 

base  = (c-'O')  ? 10  ; 8; 
oeekc  = c? 

if  (base  ==  10)  wh  i 1 e ( (c  =get  c ( ) ) >='0'  c<='9' 

peexc  = 0? 

i = i*base  + c - 'O'? 

> 

else  whi  le((c=getcO)  >='0'  c<='7')  ( 

peekc  = 0? 

i = i»base  +■  c - 'O'? 

} 

Peeke  = c? 
return  ( i ) ? 

} 

else{//there  was  no  numeric  string 
Peeke  = 0? 

if  (c  ==  '♦')  returnC-2)? 
if  (c  = = '-')  return(-3)? 

Peeke  = c?  //c  will  be  processea  later 
re  turn (• 1 ) ? 

> 

} 

i nt  command ( ) { 

/*  Process  the  command  line: 
update  infont 
check  command  arguments 
execute  command 


Any  orobJems  ? return  a l;  otherwise#  return  a 0 */ 
regi ster  i # j » 
int  temo#  k»  h»  hb»  lb# 

SwitchCtemp  = getnumC))  ( 

case  //increment  infont 

if  (chmod)  putdefC); 
i nf ont  t>; 

in  = 0;  chmod  - 0; 
break » 

case  ”3;  //decrement  infont 
if  (chmod)  putdefC)# 
i nfont-”# 

in  = 0#  chmoc  = 0# 
break# 

case  -1:  break;  //n©  change 

default:  //infont  qets  temp 

if  (chmod)  putdef(); 
i n f on t = t emp ; 
in  = 0 ; c hmoo  “ 0 ; 
break ; 

} 

if  (infont  < 0)  infont  = 127;  //check  for  wraoaround 
if  (infont  > 127)  infont  = 0; 
whi1e((c  = qetc(})  ==  ' ' ) ; 

switch  (c ) ( 

case  'a':  //ado  a character 

instr();  c=getchar();  getdim{);  p=tbuf; 
for(i=0;i<^000;i++)  *o++  = 0 ; 

bytes  = (rw%8  ==  0)  ? rw/8  : rw/8  + 1; 
in++;  wrflagtt;  chmod++;  break; 

case  'c';  //change  lines  s thru  e 
if  ( gc h a rde f ( read fp  ) ) { 

if  (setse(ht))  error; 
sbase ( ) ; 

for(i=s;  i < e#i++) 

for(j=first;  j < last+first#  j++) 
t bu f I i *bv t es  + j ) = 0; 
for(i=s;  i <=e;  i++)  ( 

orintf ("%3d  ", i ); 
for(j=first;  j < last+first; j++) 
tbuf Ci *by tes+ j 1 = aetdef(); 

in++#  cstat  = 'm'; 
wrf1ag++;  chmod++; 

) 

else  error; 


3 


case  'd*:  //delete  char's  s thru  e 

if  (setse(l20))  error; 
c St  at  = ' d ' ; 

f o r ( i n f on t =s  ; i n f on t < = e ; i n f on t ♦ + ) { 

i f ( hdr  [ i n f on t *2 1 ~~  0)  continue; 
hdr C i n f ont *21  - 0;  putdef(); 

> 

in  = O;  wrf1ag++;  break; 

case  *e':  //edit  lines  s thru  e 

i f (gchardef ( readf d) ) { 

if(setse(ht))  error; 
sbase ( ) ; 

at t V ( 1 f sat t y ) ; savetty  = sgttytll; 
for(i=s;  i<=e;i++)  i 
printf("\n%3d  "»i); 

Sdttyll)  =I  03;  s 1 1 y ( 1 f sgt t y ) ; 
for( j = fi rst; ]<fi rst  + last;  j++) 

I ist("%c^c%c%cXc%c%cXc"»tbuf  ti*bytes+jl  ); 
sgttyll]  = savetty;  s 1 1 y ( 1 r sgt t y ) ; 
print f("\n  "); 

for(j  = first;j<first  + last;j++^) 
tbuf(i*bytes+j]  - getdefC); 

} in  + + ; wrf1ag  + +’;  chmod  + + ; cstat  = 'm'; 

} else  error;  break; 

case  'f';  //switch  char  dimension  flag 
dim  =(dim)  ? 0 : 1 } 

break; 

case  'i';  //include  char's  s thru  e from  rfontfile 
if  (setse(128))  error* 
getname(rfontfi le); 

PPend(rfontfi1e/"/.fonts.01/font/"); 
i f ( ( t emo  = open ( r f on t f i I e f 0 ) ) < 0)  { 

orintf(" cannot  open  %s"»rfontfile);  error; 

} 

coy(hdr,fhar);  read(temOfhdr,5l2); 
read(temp,&tht^2);  read(temp/Sitmaxw»2); 
read(temp/itlht»2); 
if  ( re  j ec  t ( ) ) < 

pr i nt f ( "compat i bl e " ) ; 
cpv ( f hdr , hdr ) ; error; 

> 

in  = i nc 1 ude  = 0 S 
cstat  = 'i';  wr  = 0;  drc  = l; 
f or ( i n f ont =s  ; infont<  = e;  infont++)  ( 
if  ( gc h a roe f ( t emp  ) ) outdef(); 
else  if(drc  ==  0)  putdef(); 

> 

c I ose ( t emo  ) ; w r = 1 ; 
for(is0;i<s;i++)  ( 

hdrti*21  = fhar(i*2l;  harCi*2tll  = fhdr(i*2+ll; 

> 

f or ( i =e* 1 ; i < 1 28 ; i ♦ + ) ( 
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hdr(i*2]  = fhar(i*2]»  hdr(i*2  + l]  = fhdrti*2>ll; 

> 

include  = 1»  wrf1aq++;  break; 

case  '!*:  //list  lines  s thru  e 

if  (gchardef ( readf d) ) ( 

if  (setse(ht))  error; 
sbase ( ) ; 

for(i=s;  i <=e;i++)  { 

pr i nt f ( "\n%3d  "»i); 
for(j=first;j  < last  + first;  j++) 

1 ist("%cXc%c5!c^c%c%c%c"»tbuf  [i*bytes  + jl  ); 

) 

i n + + ; 

} 

el se  error; 
break ; 

case  'n';  //display  font  description  and  table 
p = des; 

if(*p  ==  '\0')  printf("no  descriptionVn"); 
else  for(i=0;*p  1=  '\0';  i++) 
putchar(*o  + + ) ; 
putchar ( ' \n  ' ) ; 

printfC"  0123  4"); 

printfC  5 6 7"); 

f or ( i =0;  i<128;i++)  { 

i f ( i X8  ==  0)  { 

if  (i  ==  Olorintf  C'NnOOO”); 

else  if  (i  < 0l00)printf("\n0%o"fi); 

else  printf("\n%o"/i)f 

} 

PS  t at ( i ) ; 

> 

p r i nt f ( " \n\n  ' ' undefined  'X'  unmodified 

printf("'r  included  "); 
printf("*D'  oeleted  *M'  modified*'); 
break; 

case  'p':  //modify  font/cnar  dimensions 

instrC);  c = qetcharC); 
getdimC);  break; 

case  *q';  //ouit»  warn  if  not  written 
if  (wr f 1 ag)  { 

wrflaq  - 0 ; 
orintf("write??"); 
error! 

) 

e*  i t ( ) ; 


case  's':  //shift  lines  s thru  e once 

i f (gchardef ( readf o ) ) < 

oeekc=0;  tempsgetcf); 


75 


if  (setse(ht))  error; 
sbase ( ) ; 

Switch  (temo)  ( 

case  'r':  //right 

for ( i =s;  i <=e;  i + + ) { 

)b  = O; 

for(j=first;  j < first+last;  j++)  i 
hb  = lb;  D = & t buf  I i *by t es  + j ] ; 
if  (*D  & 01)  lb  = l;  else  lb  = O; 

♦p  =>>  i; 

if(hb)  *D  =1  0200»else  *o  =&  0177; 

> 

) break; 

case  *1';  //left 
for(i=s;i<=e;itf)  ( 

hp  =0;  lb  = 0; 

for(j  = first  + last-l;i>  = first;j*-')  ( 

p = 4tbuf[i*bytes+j); 

i f ( ( *p&0200 ) >>7  ) hb  s 1;  else  hb  - 0; 
*p  -<<  i;  if(ib)  *p  =!  01;  1b  = hb; 

> 

> break; 

case  ' u ' ; //up 
f or( i =s;  i <=e;  i tt)  { 
i f ( i ==  0)  sont i nue; 
for(j  = first;  j < f i r s 1 1 1 as  t ; j + <■ ) 

t bu f [ ( i - 1 ) *by t es  + j 1 = tbuf Ci *by tes  + j 1 ; 

} 

for(j=first;  i<first+last;j++) 
tbuf(e*bytes+j)  = 0; 
break ; 

case  * a ' ; //down 
f or  ( i =e ; i > = s ; i -**)  { 

if  (i  ==  ht“l  ) continue; 
for(j=first;j<first+last;j++) 

tbufl(i+-l)*bytes  + j)  = tbuffi*bytes  + j)  } 

> 

for(j=first;j<first+1ast;j++) 
tbuf  (s*hy test j 1 = 0 ; 
break; 


de  f au 1 t : error; 

> //list  the  shift 
for(iss;  i <=  e;  i++)  i 

pr i nt f ( "\n%5d  " i i ) ; 
for(j=first;j  < first+last;  j++) 

1 i St  (."XcXc^cXcXcXcXcXc'* r tbuf  (i  *bytes  + il  ); 

> 

in++;  wrf1ag++;  chmod++;  cstat  = ‘m’; 


b 


^ else  error;  break 


t 


Ift 

i-r 
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case  'w':  //write  to  wfontfile  and  ouit 

if  (chmod)  outdefC);  wr  = 0; 
getnameCwfont^i  le); 

//no  writing  to  file  being  edited 
if  ( cmp r ( w f on t f i 1 e » s f on t f i 1 e ) I! 
cmor ( w f on t f i 1 e f "HFONT " ) ) { 

pr i nt f ( "wr i t i ng  to  existing  file  ");  wr=i;  error; 

) 

i f (( w r i t e fo=c rea t ( w font f i 1 e » 0666 ) ) < 0)  { 

printfC'file  " ) ! error! 

} 

zhdr ( fhdr ) i 

w r i t e ( wr i t e f p » f hdr , S 1 2 ) ; //write  olank  hdr  table 

write(writefp»&ht»2); 

write(writefc»8imaxw#2); 

write(writefp»&lht/2^; 

bike  = 1;  byte  = 6;  p = des; 

for(i=0;  *p  !=  *\0';i-.t')  { 

w r i t e ( w r i t e f o » P+ + / 1 ) ; bump(l); 

} 

w r i t e ( w r i t e f p » p » 1 1 ; bump(ll;  in  = 0! 
f o r ( i n f on t =0 ; infont<  128;  infont+  + ) { 

if  (hdr  [ i n font *21  ==  0)  continue;  //no  char  here 
else  if  ( f i nd ( i n f ont ) ) {//get  it  fron  llist 
if  (current">nsi ze  ==  0)  continue; 
fhdr  [infont  *21  = (hdr  [infont*2]  ii0377)  { (bl  kc<<8)  ; 
f hd r ( i n f on t *2 + 1 1 = byte; 

write(writefPfCurrent->def*current->nsize); 

bumo(current”>nsi ze)  ; 

free(current->def); 

} 

else  if  (edit)  {//get  it  from  file 
i = gchardef ( readf p) ; 
p = tbu  f ; 

fhdr (infont*21 =(hdr  [infont*21 &0377)  1 (bl kc<<8)  ; 
f hd r [ i n f on t *2+ 1 1 = byte) 
write(writefp»P>0);  bijmp(8); 

P =♦  bytes*rft  + 8; 
write(writefp»p»bytes*drc); 
bump(bytes*drc)  ; 

> 

else  error ; 

> 

seek(writefp»0f0); 
write(writefp/fhdr,512); 
delete  = 1 ; 

//remove  any  empty  fontfile 

f 0 r ( i =0 ; i <256 ; i = ♦ 2)  if(fhdr(il  > 0)  delete  = 0; 
if  (de 1 e t e ) { b 1 kc  = byte  = O;  un 1 i nk ( w f on t f i 1 e ) ; ) 
print  f("Xl\n"»bl kc*512  + bytc)  t 
ex  i t ( ) ; 


[ 

f. 


I 
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case  '\n';  break?  //  sync 

fief  aul  t ; 

pp i nt  f ( "Xc  " tC) : 
error ; 

> 

return(0  ) ? 

> 

bunnp(i)  //running  count  wfontfile  size 
//in  bJocks  and  bytes 
inti?  { 

if  (bytc+i  >-  513)  { 

if  ((bike  + (bytc+i )/512)  < 255)  ( 

bike  =+  (by t c ♦ i ) /5  1 2 ? 
byte  = (by t c + i ) %5 1 2 ? 

> 

else  if  (bytc+i  > 32768)  { 

printf("file  too  bio")?  e*it()? 

} 

else  byte  =+  i? 

> 

else  byte  =+  i? 

} 

int  cmpr(pl,p2)  //rtn  1 if  ol  !=  o2?  otherwise^  0 
char  *o 1 » *p2  ? { 

for(  ? ? ) ( 

if  (*pl  1=  *o2++)  return(O)? 
if  (*pl++  ==  '\0')  return(l)? 

} 

) 

cpy(nl,n2)  //copy  ol  to  d2 
int  +nl,*n2?  ( 

int  if 

f o r ( i =0 ? i <256 ? i + + ) *n2  + + = *nl++? 

> 

ppend(pl»o2)  //preoend  o2  to  ol 
char  ol  n , p2  I)  ; ( 

char  *bl > +b2»  t (UO) ? 
bl  = ol?  b2  = t? 

while((*b2++  = *bl++)  i=  *\0')  ? 
b2  = p2?  bl  = ol? 
while((*ol++  = *o2++)  i=  '\0')  ? 
b2  = t ? bl  — ? 

while((*bl++  = *b2++)  1=  '\0')  ? 

) 

int  reject!)  { //rtn  1 if  files  are  i ncomoa t i b 1 e * ow » 0 

if(tht  1=  ht  !!  tlht  1=  Iht  !!  tmaxw  > maxw)  return(l)? 
e I se  return (0 ) ? 

) 
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onintrC)  { //restore  environ,  reset  int  trap 
signal (2»oni nt  r)  ; 
if  (savetty)  { 

sgttyd]  = savetty; 
savetty  = 0; 
st  t y ( 1 , sgt  t y ) ; 
savetty  = 0; 

} 

reset ( ) ; 


int  gchardef(fo) 

/*  Get  the  character  definition  for  the  current 
character/  put  it  in  the  cha-r  buffer/  expand 
blank  rows/  and  display  necessary  diagnostics  */ 
int  fp;  ( 
regi ster  i / j ; 
register  char  *tp; 

if  (in)  return(l);  //it's  alreaoy  there/  rtn  1 
if  (find(infont)  include)  ( //it's  on  the  llist 
if  (current->stat  ==  'd')  ( 

printfCaeleted  "); 
re t urn ( 0 ) ; 

> 

t ff  = t bu  f / 

chardef  = currenf>def ; 

*tP++  = rw  = *chardef++;  rw  =&  0377; 
rw  =1  (*tp++  = *chardef++)  <<  8; 

if  (rw  <=  0)  ( 

printf("%o  raster  width  %d  " / i n f on t / rw ) ; return(O) 

> 


> 


bytes  = (rwX8  ~~  0)  ? rw/8  : rw/8  +i; 
*tp+*  = Ik  = *charaef++;  Ik  =&  0377; 

Ik  si  (*tp  + 't  = *chardef  + + ) <<  8; 

*tp++  = rft  = *chardef++;  rft  =&  0377; 
rft  s'  (*tp++  = *chardef++)  <<  8; 

*tP  + + = drc  = *c  a '"de  f ! drc  =8i  0577; 
drc  =!  (*tP  + +’  s *c  harde  f •♦■  + ) <<  8; 
i f (drc  ss  0 ) { 

pr  i nt f ( "pr i nt ab 1 e "); 
return(O)  ! 


} 

hot  = ht  - (drc  ♦ rft); 

for(isQ;  i < rft;  i++) 

fcr(jso;  j < bytes;  i++)  *tP++’  = 0; 
for(is0;  i < drc;  i+’t) 

for(jsQ;  j < bytes#  j++)  *to++  = *charoef++; 
for(is0;  i < bot;  it+) 

for(jso;  j < bytes#  j+  + ) ♦to  + 'f  s 0; 
if  (wr  &8i  dim)  pchardim(); 
re  t u r n ( 1 ) ; 


//get  it  from  the  file 

if  ( hdr ( i n f on t *2]  =s  0)  ( 

or i nt f ( "undef i ned  ");  return(O); 
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if  ((j=  (hdr{infont*2)  H 0177U00)  >>  8)  i=  0)  { 

j =&  0377; 
seek ( f D , j , 3 ) ; 

seek{fo,hdr[infont*2+l) »1); 

> 

else  seek(fp»hdrtinfont*2+lJ , 0 ) ! 
read ( f D»  & Pw » 2 ) ; 
if  (rw  <=  0)  { 

printf('*%o  raster  width  Xd  " » i n f on  t » rw ) ; return(O); 

} 

read ( f p » & 1 k » 2 ) » 
read(fp»&rft»2); 
read ( f p » &drc  f 2 ) ; 
if  (arc  ==  0 8.8.  wr ) { 

printfC" print  able 
return ( 0 ) ; 

} 

bot  = ht  “(drc  ♦ rf t ) ; 

bytes  = (rwX8  ==  0)  ? rw/8  : rw/8  + i; 
t p = t bu  f ; 

*tp++  = rw  8 0377; 

*tp++  = (rw  & 0177U00)  >>  8; 

*tp++  = Ik  & 0377;  *to++  = (Ik  & 0177H00)  >>  8; 

♦ tp-t-t  = rft  8.  0377;  *tp  + + = (rft  8,  0177a00)  >>  8; 

*tp++  = drc  & 0377;  *tp++  = (drc  & 0177^00)  >>  8; 
ford-Ot  i < rft;  i+  + ) 

for(J=0;  j < bytes;  j+  + ) *tp+-+  = 0; 
for(i=0;  i < drc;  i++)  ( 

reaa ( f D, i bu f / bytes); 

for(j=0;  j < bytes;  )++■)  *to  + + = ibufljl; 

} 

for(i=0;  i < bot;  i++) 

for(j=0;  j < bytes;  j++)  *tp++  = 0; 
if  (wr  &&  dim)  ochardim(); 
return(l); 


int  setse(x)  //set  command 
i nt  X ; { 

peekc  = O; 
s = getnum ( ) ; 
i f (s  < 0)  { 

s = 0 ; e = X - 1 ; 
return (0  ) ; 

1 

e = getnum (); 
if  (e  < 0)  e = s; 
if  (e  < s)  error; 
if((s  >=  X i;  e >=  x)  88 
if((s  > X !!  e > x)  88  X 
return (0 ) f 


//set  command  arcs  s and  e 


t ==  128)  error; 

:=  h t ) error; 


list(fmtfbyt) 


/■/list  byte/  bit  by  hit/  0 = >'.'/  1=>'0' 
char  *f mt  / by t ; { 

print f(fmt/0£00&byt?' O' ;'.',0100&byt?'0’:'.', 
00a0&byt?'0';'.',00a0&byt?'0';'.', 
00108,byt?'0';'.'/000aiibyt?'0':'.', 
0002&byt ? ' 0 000  l&byt?'0  ; 


i nt  f i nd ( i ) 

//if  current  character  is  on  llist/  rtn  1 and 
//current  points  to  correct  node?  ow/  rtn  0 
inti;  { 

register  struct  nooe  *ptr; 

Ptr  = head; 

while  (i  > ptr->cooe  ) 
ptr  = pt  r->ne<  t ! 
if  ( i ==  pt  r->code } { 

current  = ptr; 
return ( 1 ) ; 

} 

el se  return  CO  ) ; 


getnameC  file) 

//get  na<ne  ending  in  '\0'  and  stick  it  in  file 
char  f i 1 e n ; { 

whileCCc  = qetcC))  ==  ' ' ) ; 

i f (c  !=  ’\n')  { 

p = file; 
do  { 

*pt+  = c;  peekc  = O; 

> whileCCc  = getcC))  i=  '\n'); 

*p  = '\0  ' ; 

> 


putdef  ( ) { 

//out  definition  in  char  buffer  on  llist 

if  ( f i nd ( i n f on t ) ) 1 node (c u r r en t / i n f on t ) ; 
else  C 

InodeCinsertCavai 1 /infont)/infont); 
if  ( f reenode  > 128)  C 

printfC" overflow");  exitC); 

> 

avail  = SllistCt+freenodei; 

> 

) 

InodeCptr/k)  //do  the  work  for  PUTDEF 
struct  node  *Ptr;  int  k;  ( 
register  int  i/j;redister  char  *to; 
int  clear; 
ptr->code  = k; 
if  (cstat  ==  'd')  < 

otr->stat  = cstat; 
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return; 

> //count  blank  rows  at  top  and  bottom 
rft  = bot  = O; 

i = O;  clear  = 1; 

while(i  < bt  &&  clear)  ( 

for{j=8;  j < bytes  t 8;  j++) 

if  ( tbuf  li *bytest j 1 1=  0)  clear  = '\0*; 

if  (clear)  rft  = i+i; 
i + + ; 

> 

i f ( i < ht  ) { 

i = ht”l ; cl  ear  = 1 ; 
whileCi  > 0 &&  clear)  ( 

for(j=8;  j < bytes  + 8;  j++) 

if  (tbuf(i*bytes+jl  1=  0)  clear  = '\0'; 
if  (clear)  hot  = hfi; 
i — ; 

) 

> 

drc  = (drc)  ? ht  -(rft+bot)  : 0! 

if(drc  ==  0)  rft  = Ik  = 0; 

to  = ptr->def  = a 1 1 oc ( by t es *d r c + 8 ) ; 

*tp  + + = rw  & 0577;  *to  + -t-  = ( rw  & 0177U00)  >>  8; 
*tp+t  = Ik  & 0577;  *tP++  = (Ik  & 0l77a00)  >>  8; 
*tp++  = rft  i 0577;  *tp++  = (rft  & 0177a00)  >>  8; 
*tp++  = drc  & 0577;  *tp+t  s (drc  & 0177^00)  >>  8; 
for(i=rft;  i < r f t +drc  ; i + •♦■ ) ( 

for(j=8;  f < bytes  + 8;  jtt) 
rtp  + + = t bu  f I i *by  t es  j 1 ; 

> 

ptr->nsize  = 8+drc*bytes; 
ot  r“>stat  = cstat  ; 


struct  node  *insert(a»i) 

//rtn  a node  for  PllTDEF  to  use 
struct  node  ^a;  int  i;  ( 
register  struct  noce  *otr>*temp; 
temp  = ptr  = head; 
while(  i > otr->code  ) ( 

temp  = ptr; 
otr=otr->ne*t; 

) 

if  (ptr  ==  head)  ( 
a->next  = head; 
read  = a! 

} 

• I se  ( 

= temp->next; 

* ••c ” >re  X t = a ; 

-.•*«»  s e->def  = a-^nsize  = 0; 
«) : 


i 

i 

! i 


I 


f t 

t, 
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sbase()  { //set  horizontal  starting  ooint  tor  char  def 
first  = 8;  last  = bytes?  //normal  char^  default 
if  (bytes  > 9)  { //too  wide^  get  a starting  pt 
printf("\ntoo  wide. ..starting  where  ?")? 
oeekc  = 0? 

while((last  = getnum())  < 0 II  last  >=  rw)  { 
peekc  = 0?  pr i n t f ( "where  ?")?  > 

peekc  = 0; 

last  = (last  ==  0)  ? 1 : last/8  + 1? 

first  = first  + last-1? 

last  = ( (by t es + 8- f i r s t ) > 9)  ? 9 : by t es + 8-f i r s t ? 

} 

> 

getaef()  ( //get  one  byte  of  a definition 
i n t m a s k / i » i ? 
peekc  = 0? 

while((c  = qetcO)  1=  '0*  &&  c 1=  ? 

peekc  = c? 
i = j = 0? 
mask  = OuOO? 

while((jt+  < 8)  ((c=getcO)  ==  'O'  |!  c ==  '.’))  ( 

oeekc  = 0? 

if  ((mask  = mask>>l)  &&  c ==  '0') 
i = I mask? 

} 

return(i)? 

1 


pstat(i)  //print  char  status  for  eoit  table 
inti?  < 
if  ( f i n d ( i ) ) { 

swi ten (current->stat  ) { 


case  'd  ' : ori nt  f ( " 
case  'i':  orintf(" 
case  'm';  printf(" 


D " } ? b reak  ? 
I " ) ? b r e a k ? 
M ")?break? 


) 

} 

else  if  (hdr(i*2)  ==  0)  printf("  ")? 

else  printf("  X ")? 


pchardim()  { //aisplay  char  dimensions 
i nt  if 

if((i  = hdr { i nf ont *2]  & 0377)  ==  0)  ( 

o r i n t f ( "unde f i ned " ) ? return? 

} 

printf("rw  %d  cw  %d  "»rw»i)? 

if  (rw  ==  i)  printf(”Ik  %d  rk  Xa",lkflk)? 

else  if  (Ik)  ( 

if  (Ik+i  ==  rw)printf("lk  X6  rk  Xd"»lk,0)? 
else  printf("lk  Xd  rk  Xd"»lk/rv*  -i-Ik)? 
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else  Drintf("1k  %d  rk  %d"f1k»rw-i)» 
orintfC  ht  %d  Iht  %d  "»htflht); 
printf("rft  %d  drc  %d\n " » r f t » d rc  ) » 


getdi m ( 1 { 

/*  Look  for  a number  and/or  name.  Take  both  as 
a request»  rejecting  invalid  requests  with  a *?' 

Quit  on  *t'  and  return  to  the  main  command  loop  */ 
int  i»j»  font;  char  name[20i; 
j = hdr  [ i n f on t * 2 1 &0 5 7 7 ; font  = 0; 
while  ( I ) { 

peekc  = 0;  printf("\n%3o->  ”»infont); 
i s qetnumC);  ge t name ( name  ) 7 
i f ( cmo  r ( name  f " t " ) ) breatc; 
i f (cmpr (name/ " i " ) ) instr(); 
else  i f ( c mo r ( name / " i n f on t " ) ) { 

infont  = i;  i = gc bar def(readfp); 

} else  i f (cmpr (name/ "d"  ) ) ( 

printf("%s\n"/des); 
peekc  = O;  get  name ( des  ) ; 

} else  i f ( cmo r ( n ame / "p" ) ) ochardim(); 
else  i f (cmor  (name  / " f '' ) ) 

printf("ht  %o  maxw  %d  Iht  Xo\n " / h t / ma * w / 1 h t ) ; 
else  i f ( cmor ( name /"  h f ")  ) { 

if(i  >z  lht){  ht  = i;  wr f 1 aqt+/  } 
else  orintf("\n?  " ) ; 

> else  if(cmpr(name/"lht"))  { 

if(i  <=  ht)<  Iht  = i;  wrflag++;  } 
else  orintf("\n?  ”); 

} else  i f (cmor (name/ "maxw"  ) ) { 

if(i  < 0 II  i > 25b)  (maxw  = i;  wrflaa++;  } 
else  orintf("\n?  "); 

> else  i f (cmor (name/ "cw"  ) ) ( 

i f (gchardef ( readfo)  ) { 

i f ( i <=  rw  ) ( 

hdr  [ i n f on  t *2)  =?.  0177^00; 
hdr  ( i n f on t *2]  =1  i & 0377; 

1 k = rw-i  ; font  = 1 ; 

) else  printf(”\n?  ”); 

) else  printf(''  cw  now  %d\n"/(harlinfont)=i)); 
} else  i f ( cmp r ( name / " rw  ” ) ) ( 

if  (gchardef ( readfo) ) ( 

i f ( i <=  maxw  ) { 

rw  = i ; font  = 1 ; 

i f ( r w < j ) ( 

hdr  ( i n f ont  *2)  =&  0177^100; 
hdr  ( i n f ont *21  =!  i i 0377  ; 

Ik  = 0/  font  - 1; 

) 

) else  orintf("\n?  ’’); 

) else  orintf("  rw  now  %d\n"/(rw  = i)); 

) else  i f ( c mor  ( name  / '*  1 k " ) ) { 

i f (gchardef ( readfo)  ) < 

i f ( rw  ==  j ) { 
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if(i  ==  0)  {Ik  = i;  font  = l;  } 
else  pri nt  f ( "\n?  " ) ; 

) else  if(i  <=  rw-j)  { Ik  = i;  font  = 1!  > 
else  printf("\n?  " ) ; 

> else  printfC"  Ik  now  %a\n",(lk  = i)); 

> else  i f ( cmpr ( name f " r k " ) ) { 

i f (qcftardef  ( readf  p)  ) { 

if(rw==j)  { 

if  (i  =r  0)  ; else  printfCNn?  "); 

} else  ifCi  <=  rw-j)  { 
if(i+lk  ==  rw-j)  i 
else  { Ik  = rw-i;  font  = 1;  } 

) else  printfC "\n?  "); 

> else  printf("\n?  "); 

) else  printfC "\n?  ")/ 

} 

if  C f on  t ) { 

w r f 1 aq  + ; c s t a t = ' m ' ; ou  t de  f C ) ; i n = 0; 

> 


instrC)  { //display  instructions  for  GETOIM 
p r i n t f C " Mod i f i ab 1 e FONT  dimensions  are:\n")» 
printfC'heiqht-  'ht'  max  character  width-  'maxw'"); 
printfC"  logical  height-  'lht'\n\n")» 
printfC "Modifiable  CHARACTER  dimensions  are:\n"); 
printfC"raster  width-  'rw'  character  width-  *cw'"); 
printfC"  left  kern-  'Ik'  right  kern  ’rk'\nSn"); 
printfC"Type  'i'  for  instructions*  'o'  for  "); 
printfC"dimensions  of  character  in  buffer. \n"); 
printfC"To  move  to  another  character*  update  "); 
printfC ”'infont’.\n"); 

printfC "\nGet  font  dimensions  with  'f'.  "); 
o r i n t f C " Mod  i f y font  name  with  'd'.  If  you're  adding")* 
printfC"a\n  character*  make  changes  in  this  order  only:"); 
printfC"  'rw'*  'Ik'  * then  'cw'.Nn"); 

p r i n t f C " \n I moos s i b 1 e modifications  are  rejected....")* 
printfC"some  example  inputs  might  be\n"); 
printfC"  '22  Iht'*  '063  infont'*  'i'*  or  '0  lk'\n\n"); 
p r i n t f C " You  ' 1 1 be  oromoted  with  a ' . ")*’ 
printfC "When  you  are  finished*  type  't'...  \n\n"); 


I 
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APPENDIX  0.  VECTOR  TO  RASTER  CONVERSION 


A.  'MAKEhF':  creating  A FONT 


1,  Basic  St  puc  t u re 


"Makehf"  is  designed  to  convert  the  vector  defini- 
tions of  Hershey's  14  fonts  into  a digitized  form  suitable 
for  use  in  comouter  tycesetting.  The  digitized  font  file 
created  matches  the  format  used  in  the  SAIL  files  and  is 
compatible  with  the  font  editor.  This  font  file  format  is 
described  in  Chapter  III;  Hershey  font  files  differ  slightly 
because  no  font  description  is  ever  generated  by  "makehf", 
so  an  extra  zero  byte  immediately  follows  the  three  words 
containing  the  font  height*  maximum  cnaracter  width,  and 
logical  height.  This  zero-word  tells  "edf"  that  no  descrip- 
tion is  available. 


All  fonts  digitized  from  Hershey  vector  definitions 
are  variable  width  fonts.  The  arguments  used  to  call 
"makehf"  are  described  in  Chapter  II  and  again  in  this  Ap- 
pendix. 


This  program  can  be  used  in  a stand-alone  mode,  in 
which  case  the  digitized  font  file  created  is  normally  left 
on  file  ”/. fonts. 01/HFONT"  and  it  can  then  be  copied  to  any 
other  directory.  The  digitized  font  may  be  written  directly 


to  another  file,  as  explained  in  the  next  paragraph.  when 
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digitizing  a font  using  "edf"»  ’’makehf"  is  spawned  as  a 
child  process;  the  editor  waits  until  the  digitization  is 
complete  and  then  opens  file  " / . f ont s . 0 1 /HFONT"  for  reading 
and  continues  normally. 

An  additional  option  has  been  added  and  is  normally 
used  for  the  digitization  of  fonts  larger  than  U2  point. 
However^  it  may  be  used  whenever  the  user  wants  the  digi- 
tized file  written  to  some  location  other  than  the  default 
file.  Since  the  file  space  available  on  the  mountable  file 
is  limitedf  the  user  may  include  a full  oath  name  as  a third 
argument  and  indicate  a specific  output  file  as  the  destina- 
tion for  tne  digitized  font.  This  option  should  permit  the 
user  to  avoid  system  "write”  errors  that  might  occur  if  the 
digitized  file  were  larger  than  the  space  available  on 
"/.fonts. 01".  A point  size  must  be  included  as  the  second 
argument  when  using  this  ootion»  even  if  the  default  value 
is  des i red . 

2.  Limitations 

Because  a decision  was  made  to  limit  the  maximum 
raster  height  to  255  pixels#  "makehf"  will  create  fonts  only 
UP  to  1 point  in  size.  The  user  should  also  be  aware  that 
font  files  increase  in  size  rapidly  as  larger  point  sizes 
are  reauested.  The  next  pages#  for  example#  contain  the  Du- 
plex Roman  font  digitized  to  10#  20#  30#  and  ^0  point 
sizes.  This  allows  a comparison  of  the  relative  sizes  of 


both  the  characters  and  the  font  files  themselves 


The  file 


sizes  and  the  times  reauired  to  create  the  fonts  are  listed 
be i ow : 


SIZE(bytes) 

TIME 

Rea  1 

User 

System 

HDRIO 

5522 

0:45.0 

0:22.8 

0: 19.4 

HDR20 

15211 

1:41.0 

1:10.4 

0:25.7 

HDR30 

31757 

3:00.0 

2:26.4 

0:28.8 

HDR40 

53458 

5:18.0 

4:11.6 

0:49.6 

The  three  times  given  were  obtained  using  the  "time" 
command  discussed  in  Reference  5.  The  conversion  was  made 
using  "edf"  with  a "w"  (write)  command  waiting  for  the  edi- 
tor when  it  returneo  from  the  call  to  "makehf".  NormallVf 
the  time  reguired  to  digitize  a font  will  increase  notice- 
ably as  either  the  point  size  desired  or  the  number  of  lines 
per  character  (the  complexity)  increases.  These  times  were 
taken  early  in  the  evening  . and  are  somewhat  faster  for  the 
larger  fonts  than  a normal  time  during  the  work  day  would 
be.  If  both  factors  increase^  then  the  time  reouired  for 


di gi t i zat i on 

becomes 

not i ceahl y 

1 onge  r . 

A comparison  of  the 

times  reguired  to  digitize  each 

of  the 

fonts  at  20  point  is 

gi yen  below: 

REAL 

USER 

SYSTEM 

SIZE(bytes) 

HSR 

1:01.0 

0:35.8 

0:20.4 

15461 

HDR 

1:41.0 

1 : 10.3 

0:25.3 

15211 

MCH 

1:51.0 

1:12.1 

0:28.6 

18327 

MTR 

2: 19.0 

1:35.1 

0:30.8 

15856 

HCI 

2:16.0 

1:20.9 

0:30.8 

18936 
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FIGURE  0-1.  Increasing  Point  Sizes — HUH 
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i ■ 


ii 

V 

17063  ^ 

13393 
13173 
15302 
18086 
16201 
1 7560 
16759 
19802 

i n Tiemopy  r which 

oermits  the  d i q i t i z a t i on  of  fonts  ud  to  approximately  91 
point  in  size.  However,  the  font  output  routines  can  ad- 
dress only  160K,  so  this  limits  the  size  of  a digitized  font 
that  can  be  addressed  in  its  entirety  to  approximately  65 
point.  Larger  fonts  can  be  digitized  if  only  upper  case 
letters,  aigits,  and  punctuation  are  desired  or  reouired; 
some  lower  case  letters  may  be  available  (run  "prfont"  and 
see  what  it  prints),  but  some  will  be  unaddressab I e . 


I 

I 

I 

I 


f 

HTI 

3:16.0 

1:96.6 

0:33.5 

f * 

HSS 

1:16.0 

0:99.7 

0:22.6 

r 

i 

HCS 

1 :a6.0 

1:02.5 

0:29.2 

HSG 

1:13.0 

0:37.9 

0:21.5 

7 

HCG 

2:13.0 

1:12.8 

0:29.9 

HGE 

3:«a.o 

1:97.7 

0:35.0 

HGG 

2:«2.o 

1:59.7 

0:35.0 

HGI 

2:33.0 

1:37.1 

0:32.0 

HCC 

2:06.0 

1:28.3 

0:29.8 

1 ■ 

II 

Makehf”  can 

address  up 

to  200K 

MAKEHF 


1 May  1^77 


MAKEHF 


NAME 

makehf  --  diqitize  a HersKey  font  from  the  vector 
definition 


SYNOPSIS 

makehf  -HFT  [ SIZE  1 t outout  file  1 


DESCRIPTION 

This  command  creates  a Hershey  font  in  the  point  size 
reauested  by  the  user.  SIZE  is  an  optional  parameter; 
if  no  SIZE  option  is  used^  the  font  will  be  created  in 
the  default  size  10  point.  The  maximum  height  al~ 
lowed  is  255  pixels  ( 91  point  ). 

A full  path  name  may  be  used  as  a third  argument  to 
"makehf".  This  causes  the  program  to  write  the  digi- 
tized font  to  the  specified  output  file  rather  than  to 
the  default  file*  '*/ . f on  t s . 0 1 /HFON  T"  . The  use  of  this 
option  is  recommended  at  point  sizes  larger  than  aO-92 
point.  The  SIZE  must  be  specified  if  this  ootion  is 
used*  even  if  the  default  size  is  desired. 

The  font  requested  by  HFT  must  come  from  the  following 


HSR 

Simplex 

Roman 

HDR 

-- 

Duplex 

Roman 

hcr 

-- 

Comp  1 ex 

Homan 

HTR 

-- 

Triplex 

Roman 

HCI 

-- 

Comp  1 e X 

1 1 a 1 i c 

HTI 

-- 

Triplex 

1 1 a 1 i c 

HSS 

w a* 

Simplex 

Script 

HCS 

-- 

Comp  1 ex 

Script 

HSG 

-- 

Simplex 

G reek 

HCG 

-- 

Comp  1 e X 

Greek 

HGE 

-- 

Gothic 

Engl i s h 

HGG 

-- 

Gothic 

German 

HGI 

-- 

Gothic 

1 1 a 1 i an 

HCC 

-- 

Comp  1 e X 

Cyrillic 

FILES 

/. fonts. 01/hershey/-“.v 
/. fonts. 01/HF’O  NT 


SEE  ALSO 
ed  f 
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This  program  wi M actualiy  convert  a Hershey  vector 
definition  to  a digitization  in  a stand-alone  mode  as 
Jong  as  the  firsts  thirds  and  fourth  letters  in  the 
first  argument  are  correct/  i.e./  the  second  character 
need  not  be  an  "H".  However/  this  is  the  same  program 
called  by  the  font  editor  to  create  a Hershey  font/ 
and  if  the  argument  oassed  to  "eof"  does  not  begin 
with  a "-H"/  the  editor  will  not  work. 


I 

i 


makeh  f . c 


#de  f i ne 

FFACTOR 

.050 

*>de  f i ne 

SIZE 

8192 

«def i ne 

MODE 

0666 

)*de  f i ne 

HELP 

1.75 

*def  i ne 

NOHELP 

.^10 

<fde  f i ne 

SOMEHELP 

.90 

«de  f i ne 

DELV 

.60 

«de  fine 

DELH 

.a5 

#de  f i ne 

DOLLAR 

73  //  for  height 

#de  f i ne 

SLASH 

95  //  also  for  height 

Foef i ne 

CAPM 

155  //  caoital  M location 
//  in  d i rec  t o r y 

#de  f i ne 

SMALLP 

225  //  small  o location  in 
//  directory 

#de  f i ne 

CAPX 

177  //  cao  X for  Greek  cha 

#de  fine 

SMALLX 

2^1  //  small  X for  HCG 

Foe  f i ne 

CAPP 

81  //  cap  p for  HGG 

Fde  f i ne 

smallf 

103  //  smal 1 f f or  HGG 

Fde f i ne 

STDFONT 

29.0  //‘height 

Fde  f i ne 

R 

0 

»de  f i ne 

W 

1 

float  X j , 

y i # XX#  y y # 

xl  , 

y 1 # X r 

# y r # 

1 X t 

1 y # r X 

# r y # 

b f 

m#  deltax#  xwiae 

# y h i gh  # 

true#  test 

# xconst# 

ycons  t # de 1 X ; 

int  i » j » 

k # 

//  counters  for  "for"  loops 

f t h t » 

f t w # 

//  font  height#  width 

ro t r / 

wo  t r # 

//  read  and  write  pointers 

ym  i n # 

yma  X # 

//  min  & max  height  of  font 

X m i n # 
kt  r # 
bytes# 

CDt  r ; 

xmax  # 

//  min  % max  widths  of  font 
//  counter  for  arrays 
//  byte  counter 

int  M[259]  ; 

i nt  h t s [9]  ; 
long  int  CDOS  ; 


char  poat  h U { 

"/. fonts. Ol/hershev/--.v" 
} 7 

Char  woathll  { 

fonts. 01/HFONT" 

> ; 


//  array  for  char  directory 


char  1 ep  [21  t 
X [laa]  , Y iiaa] , 
mask  > 

num 1 > numd  » 

go » flag/  ok ; 

char  0M(SIZE1  ; 


readchC)  { 

k = seek(  rotr,  cptr/ 
ktr  = 0 ; 
numl  = num2  = 0 / 
wh  n e'  ( ( num  1 ! = 50  ) 
k = readC  rptr,  1 
numl  = 1 ec  [ 1 1 i 
num2  = 1 ep [ 0 1 ; 

if  ( numl  > 50  ) 
i f ( num2  > 50  ) 

X [kt  r]  = num  1 ; 

Y [ k t r 1 = num2  / 

kt  r t+  ; 


/ / read  in 

0 ) ; 


! ! (num2  i=  50)  ) 
ep/  2 ) ; 


numl  = numl  - 100 
num2  - num2  - 100 


} 


/ / end 


a char  def 


{ 


readc  h ( ) . . . 


m i nma  X ( ) { 

ktr  = 0 ; 

t/hile  ( (Xlktr)  !=  50)  l|  (Y[ktr)  •=  50)  ) { 

if  ( (X[ktrl  > xmax)  iii  (X[ktrl  1=  50)  ) 
xmax  = X(ktrl  ; 

else  if  ( Xlktrl  < xmin  ) xmin  = Xfktrl  / 
if  ( (Ylktrl  > vmax)  8.8,  (Y(ktrl  1=  50)  ) 
ymax  s YCktrl  ; 

else  if  ( Ytktr)  < ymin  ) ymin  = Y[ktrl  ; 
k t r ♦ + ; 

} 

) //  end  minmaxC)  ... 

mainC  argc/  argv  ) 
int  argc  / 
char  *arqv  (1  ; { 

int  i i / j j / 

C/  cw/  rw/  Dtsize/ 
trow/  Irow/  rowS/  rowc/ 

t op / bo  t / 
high/ 

1 h t / 

maxaddr  / 
r em / block/ 
drc / r f t ; 

int  t ndr  (259)  ; 

char  s 1 ooe / oos i t / 

St  rt  / 


//  array  counters 


// 

font  parameters 

maxcw / 

// 

row  pointers 

// 

too  & bottom  of 

char 

// 

how  hign  is  the 

char  ? 

// 

logical  height 

of  char 

// 

highest  addr  i n 

1 0 bits 

// 

if  font  > t>5K 

// 

data  row  count / 

// 

rows  f rom  t oo 

// 

temp  header  for 

output  file 

95 


b i g > 
greek, 
got  hger 


//  if  font  is  > 65K 
//  flag  for  Greek  alphabet 
//  flag  for  Gothic  German 


i f ( a rgc  >=  3 ) { 

if  ( (argv[21t0]  < '0')  (argv[2](01  > '9')  ) { 

orintfC  incorrect  argument--\n'*)  » 
pr i nt f ( "poi nt  size  not  gi ven . . .\n" ) ; 
ex  i t ( ) / 

} ' 
else  ptsize  = atoi  ( argvt?]  ) ; 

} 

else  i 

Ptsize  = 10  ; 

rpath[191  = argvtl)  121  } 
rpathl201  = argvtll  C31  ; 
if  i argvlllt31  ==  'G'  ) { 

i f ( argv  ( 11  [21  ==  'G*  ) { 

qothger  = l;  qreek  =0;  > 

else  { qreek  = l;  gothqer  = 0;  > 

> 

else  { greek  = gotnger  =0;  > 

ftht  = C ptsize  * 2.8  ) + 1 ; 
delx  = FFACTOR  ; 
deltax  = ftht  * delx  ; 
block  = rem  = 0 } 
maxcw  = 0 ; 
zero  = 0 ; 
mask  = 01  ; 
ymin  = ymax  = 0 } 

for  ( i = 0 ; i < 259  > i++  ) 
t hdr  t i 1 = 0 ; 

for  ( i = 0 ; i < SIZE  ; i ++  ) 

DM[n  = 0 ; 

rptr  = 0Pen(  roath,  R ) ; 

i f ( a rgc  ==  a ) { 

i f ( argv  [31  (011='/’)  { 

pr i nt f ( " i ncorrect  output  file  name--\n"l; 
printf("full  path  name  r equ i r ed\n " ) » 
ex  i t ( ) ; 

} 

else  wotr  = creat(  arav[31»  N'OOE  )» 

} 

else  wotr  = creat(  wpath,  MODE  ); 
k = readC  rotr^  M,  512  ) ; 
i f ( k 1=  512  1 < 

pr i nt f ( " i ncor rec t read  from  %s"»  rpath  ) ; 

ex  i t { ) ; 

} 

k = seek(  wptr»0»0  ) ; 
k = write(  wpt r , t hdr , 5 1 0 ) } 
k = write!  wot  r , Itzero  » 1 ) » 


epos  = 519  ; 
if  ( ptsize  >=  36  ) { 

block  = coos>>9  & 0177777  ; 
rem  - epos  & 0777; 
big  si  ; 

> 

else  big  s 0 ; 

//  use  a capital  N'  and  a small  o op  x to  find 
//  the  highest  and  lowest  points  in  the  font 

hts[2)  s DOLLAR  ; 
htsl3]  s SLASH  ; 
i f ( greek  ) { 

htslOl  = CAPX  ; 
hts  m = SMALLX  ; 

> 

else  if  ( got  hqer  ) { 

htstO)  s CARP  ; 
hts  m s SMALLF  ; 

> 

else  < 

hts to]  s CAPM  ; 
htstl)  = SMALLP  ; 

> 

for(i=0;i<4;i++)  { 

cotr  = M[  htsli]  !<<1  ! 
peadcht)  ; 
m i nma X ( ) » 

if  ( i ==  0 ) Iht  = ymax  ; 

} 

//  now  use  the  high  and  low  points  to  find 
//  the  multiplication  constants  necessapy 
//  to  make  the  standapd  font  largep  op  smallep 

yhigh  = ymax  - ymin  } 

yconst  = ftht  / yhigh  } 

xconst  = ftht  / STDFONT  ; 

xwide  = ( xmax  - xmin  ) * xconst  ; 

yy  = (ymin  * yconst  ) » 

Iht  s (Iht  * yconst)  - (ymin  * yconst)  r 


//  now  walk  thpough  the  dipectopy  and  convent 
//  any  non-zepo  entPies  (i.e./  chanacteps)  fpom 
//  vectop  to  pastep  in  the  desined  oointsize 

foP  ( i = 0 ; i < 128  ; i++  ) {//  contpolling  loop... 

j = i < < 1 ; 

i f ( M ( j)  Is  0 ) { 

cw  5 M[j)  ; 

ftw  s rw  = cw  * xconst  » 
cptp  s M(j  + ll<<l  ; 


//  don't  bothep  fop  nothing 


if  ( (rw  X 8)  ==  0 ) rows  = rw  / 8 ; 

else  rows  = (rw  / 8)  + 1 * 
ymin  = yma*  s 0 ; 
go  = ok  = 1 ; 

Mljl  = (rw  & 0377)  I (b1ock<<8  & 0177400)  ; 
i f ( b i g ) ( 

M(j  + 1]  = rem  ; 

> 

else  ( 

= cDos  ; 

> 

1 row  = 0 ; 
trow  = 8 ; 

i f ( rw  > maxcw  ) maxcw  s rw  J 
readc  h ( ) ; 
m i nmax ( ) ; 

top  = •(  (-ymin  * yconst)  + yy  ) J 
if(top<0)too=0; 
r f t = top  ; 

bot  = -(  (-ymax  * yconst)  yy  ) + 1 ; 

if  ( bot  > ftht  ) bot  = ftbt  » 

drc  = high  = ( bot  - toP  ) + I J 

ktr  = 0 ; 

x1  = X [ktr]  ; 

y 1 = -Y [kt  r]  ; 

++ktr  ; 

xr  = numl  = Xlktrl  } 
num2  = Y Ik  t r ) ; 

yr  = -num2  ; 

while  ( go  ) ( //  check  each  line  in  the  character 

f 1 ag  = 1 f 

if  ( numl  50  ) {//  check  for  "move"  or  end  of  char 

i f ( num2  ==  50  ) go  = 0 » 

//  that's  all  for  this  char» 

//  go  on  to  the  next  one 
else  if  ( num2  1=0)  { 

oerror("bad  y value  for  x = 50  ")  ; 
break  ! 

> 

else  { 

♦♦ktr  ; 

numl  = XlktrJ  ; 
num2  = Y [kt  r)  ; 

if  ( numl  > 50  ) numl  = numl  - 100  } 
if  ( num2  > 50  ) num2  = num2  - 100  » 

X 1 = numl  ; 

y1  = -num2  } 
flag  = 0 ; 

) 

) 

else  ( 

if  ( yl  ==  yr  ) { slope  = 0 ; m = 0.0  } } 

else  if  ( xr  ==  xl  )(slope  = -1»  m = -1.0;) 
else  (slope  = i;  m = ( y 1 -y r ) / ( x 1 -x r ) ; > 


X X 

rx 


= pw  / 2,0  ; 

- XX  + (xr  * xconst) 

ry  = yy  + (yp  * yconst)  ; 

lx  = XX  + (x1  * xconst)  ; 

ly  = yy  t (y]  * yCOnSt)  ! 

Ok  = 1 ; 

rowc  = trow  ! 


if  ( slope  ==  1 ) { //  normal  line  case 

b=ly”(m*1x); 
if  ( (m  >=  3.0)  II  (m  <-  -3.0)  ) 

{ 

if  ( (m  >=  7.0)  II  (m  <=  -7.0) ) 
delx  = HELP  * 1.50  ; 
else  delx  = HELP ; 


) 

else  i if  ( (m  <=  .50)  &&  (m  >=  -.50)  ) 
delx  = NOHELP  ; 
else 

delx  = SOMEHELP  ; 

> 


if  ( m > 0,0  ) { //  slope  is  positive 

for  ( ii  s too  } ii  <=  bot  + 1 t i i ) { 

y i = - i i ; 

if  ( ( (yi  >=  ly)  &&  (yi  <=  ry)  ) || 
((yi  >=  ry)  S.&  (yi  <=  ly)  ) ) { 


true  = yi  ; 

for  ( jj  = 0;  ji  < ftw;  )]+■+  ) { 

X j = j j » 

test=(m*xj  )+b; 
if  ( (test  >=  (true  - de 1 t a x *de 1 x ) ) && 
(test  <=  (true  + de 1 t ax *de 1 x ) ) ) ( 


c = jj  / 8 

? 

posit  = j j 

- 

( 8 * c ) + 1 ; 

DM ( rowc  +c 1 

s 

DM [ rowc  + c 1 1 

> 

) 

rowc 

> 

(mask<< (8  - 

posit)); 

} 

s rowc  + rows 

) 

else 

< 

// 

s 1 ope  i s neqat i ve 

for 

( ii 

= too  ; i i 

<- 

bot+1  ; i i ++  ) 

( 

y i 

= - ^ 

i ; 

i f 

( ( 

( y i < = 1 y ) 

(yi  >=  ry)  ) 11 

( 

( y i <=  r y ) 

< 

V 

II 

< 

( 

true 

= y i ; 

for  ( 

j j = 0 ; j j 

< 

ftw;  j j ++  ) ( 

X j 

= jj  ; 

test  = ( m * xj  ) 

+ b ; 

i f 

( (test  > = 

(true  - de 1 t ax *de 1 

X ) ) && 

(test  < = 

(true  + de 1 t ax  *de 1 

x)  ) ) ( 

c = j j / 8 ; 


posit  = j j 
DW  frowc+c) 


■ ( 8 * c ) f 1 ; 

= DM[rowc+cJ  I 

(mask<<  (8-posit))  » 


powc  = rowc  ♦ rows  ! 


else  if  ( slope  1=  0 ) { //  vertical  line  case 

for  (ii  = too;  ii  <=  bot+1;  ii++  ) ( 
y i = - i i ; 

i f ( ( (yi  < ly)  &&  (yi  > ry)  ) | | 

( (yi  < ry)  &&  (yi  > ly)  ) ) ( 
for  (jj  s 0;  jj  < ftWf  jj++  ) ( 

* i = j j ; 

if  ( (xj  >=  (lx  - deltax*DELV  ))  && 

(xj  <=  (lx  + deltax*DELV  )))  ( 
c = j j / 8 ; 

posit  = iJ  - (8  *c)  1 ; 

0M(rowc  + c)  = OWtrowc  + c)  1 

(mask<<(8  - posit))  ; 

) 


rowc  - rowc  rows  ! 


else  ( //horizontal  linecase 

for  (ii  = top;  ii  <=  bottl;  ii++  ) { 

y i = - i i ; 

if  ( (yi  <=  (ly  + deltax*OELH  ))  )4& 

(yi  >=  (ly  - deltax*DELH  ))  ) ( 

for  (jj  = O;  jj  < ftw;  jj++  ) { 

* i = j j ; 

if  ( ( (x j >=  lx)  &&  (x j <=  rx)  ) I ! 

((xj  >=  rx)  &&  (xj  <=  lx)  ) ) { 

c = j j / 8 ; 

positsjj  -(8*c)  +1  ; 

D^’trowc  + cl  = OMtrowc  + c)  ! 

(mask<<(8  - posit)) 

) 


rowc  = rowc  ♦ rows  ! 


if  ( f laq  ) 

X 1 = X r I 
y 1 = y r 
> 

i f ( do  ) ( 


num  1 

= X(ktrJ  ; 

num2 

= Y tktr]  ; 

i f ( 

num 1 > 50  . ) 

num  1 s 

num  1 - 

100  ; 

i f ( 

num2  > 50  ) 

num2  = 

num2  - 

100  ; 

X r = 

num  1 ; 

y/p  = 
> 

-num2  7 

> 

DM  [ 1 POW+ 1 J = ( Pw  & 

0177400 

)>>8  ; 

DM  ( 1 row  1 

= PW  & 0377 

• 

9 

DMtlrow+2]  = DM(lrow  + 31  s 0 ; 

QM[lrow+5]  = ( rft  & 0177400  )>>8  ; 

DMtlpow+4]  = rft  & 0377  ; 

DMnrow>71  = ( dpc  & 0177400  )>>8  ; 

OMtlpow  + bl  = drc  0377  ; 

1 row  = tPOw  t ( high  * rows  ) 7 
epos  s coos  1 row  ; 

//  insert  code  to  handle  large  fonts#  i.e.# 

//  fonts  that  have  more  than  65535  bytes 
//  in  the  character  definitions.  This 
//  Should  happen  around  the  40-42  point  size. 

if  (big)  ( 

block  = cpos>>'^  & 01  77777  7 
rem  = coos  & 0777  7 
if  ( block  >=  253  ) { 
big  = 0 7 
coos  = rem  ; 

) 

} 

k = writeC  wptr#0M,8  ) ; 

j = trow  7 

if  ( high  < 25  ) bytes  = rows  7 

else  bytes  = rows  * 25  7 

kt  r = bytes  7 

while  ( ktr  >=  bytes  ) { 

k = write(  wot r , &0M [ j ) , by t es  ) 7 
j - ) + bytes  7 
ktr  = 1 row  - j 7 
} 

if  ( k t r > 0 ) 

k = write(  wot r # &DV t j ) , k t r ) 7 
for  ( j = 0 ; j < (Irow*  2*rows)  7 jt+  ) 

0M(j]  = 0 7 

> 

> 

//  wrap  things  uo--  out  the  data  for  a blank  in 
//  the  SPACE  location  so  that  it  will  plot  on 
//  the  Versatec  later...  Then  write  out  the 
//  directory  and  finish  uo 
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for  ( k = i;  k < a;  k++) 
thdr  [k]  = O; 

M(6ai  = thdrtO]  = & 0377  ; 

Mteai  = Mtbai  | (biock<<8  & oi77aoo) 
i f ( b i g ) { 

M (65]  = rem  } 

> 

else  M(65]  = epos; 
k = wp i t e ( wpt r * &t hdr » 0 ) ; 

M(257]  = maxcw  ; 

M(256]  = ftht  ; 

M(258]  = Iht  ; 

k = seek(  wptr»0f0  ) ; 

k = writeC  wptr,  &M,  518  ) » 

> 


K. 


^ I 


A.  OBTAINING  THE  DATA  BASE 


Dp,  Allen  V.  Hershey's  complete  set  of  1377  occidental 
characters  is  available  in  Reference  16^  where  Appendix  A 
contains  the  complete  vector  representation  of  each  charac- 
ter and  Appendix  B contains  a drawing  of  each  character. 
The  vector  representat i on  data  was  also  available  locally  on 
a tape  at  the  Naval  Postgraduate  School's  w.R,  Church  Com- 
puter Center;  that  tape»  labeled  NPS^51»  provided  the  data 
base  for  this  tnesis.  The  data  was  read  from  NPS^Sl  onto 
another  tape  so  that  it  could  be  used  in  the  PDP-11/50  en- 
vironment available  in  the  Computer  Science  Department's 
computer  laboratory. 

Information  regarding  the  IBM  system  utility  program 
IE0GENER  used  to  read  from  NPS^Sl  and  to  write  to  the  tran- 
sport tape  is  contained  in  Reference  10.  The  information  on 
either  tape  can  be  printed  out  for  verification  or  other 
purposes  using  the  TAPEOUT  utility  described  in  Reference 
1 1 . 
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B.  changing  the  environment 


Once  Hershey's  data  was  initially  available  on  the 
PDP-IW  it  was  still  not  ready  for  man  i ou  1 a t i on  . It  was 
necessary  to  convert  the  EBCDIC  characters  that  were  used  on 
the  lBM-360/67  to  ASCII  characters  that  could  be  used  on  the 
PDP-11;  fortunately/  the  "dd"  shell  command  described  in 
Reference  15  made  converting  the  tape  a fairly  simple  pro- 
cess. By  using  "dd"  as  follows/ 

dd  if=/dev/rmt5  of=digit  bs=80  cbs=80  skip=N  count=M 
conv=asc i i 

re  N is  the  number  of  records  to  skip  before  starting  to 
y and  M is  the  number  of  records  to  be  copied/  the  UNIX 
shell  would  read  the  EBCDIC  taoe  in  logical  records/  i.e./ 
card  images.  The  EBCDIC  characters  were  then  converted  to 
ASCII/  trailing  blanks  were  omitted  and  '\n'  (newline)  was 
appended  to  the  line  before  it  was  sent  to  the  output.  The 
resulting  file  contained  a series  of  groups  of  ASCII  charac- 
ters; each  group  was  no  larger  than  77  characters  and  no 
smaller  than  28/  and  each  group  was  ended  by  newline. 

The  first  task  was  to  strip  the  groups/  or  records/  of 
unnecessary  characters;  each  record  began  with  "2520"  and 
could  contain  up  to  20  additional  characters  that  were  not 
coordinate  pairs  neeoed  for  the  vector  generation/  but  that 
were  paoding  characters.  The  following  program/  "cnvrt.c"/ 
took  those  records  ana  output  loaical  records  of  the  form; 

CCCCSSSXiriX2v2X3Y3...XiYi...Xkrk\n 

where 
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CCCC  - Hershey  character  number  (describes  font/  etc.) 

SSS  = card  sequence  number  (one  card  was  not 

usua 1 1 y enough ) 

XiYi  s one  endooint  of  a vector 

and  ic  must  be  Jess  than  or  equal  to  twelve/  since  there  was 

^ room  for  a maximum  of  twelve  coordinate  oairs  on  each  origi- 

I nal  EBCDIC  inout  card  image. 


4 


! 
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CNVRT 


23  February  1977 


CNVRT 


NAME 

cnvrt  --  convert  a taoe  file  for  initial  use 
^ SYNOPSIS 

V < taoefile  > > cnvrt  > < pre-vector  hershey  > 


DESCRIPTION 

After  the  required  number  of  records  have  been  read 
from  the  taoe  containing  the  vector  r ep r esen t a t i ons , 
this  program  is  used  to  strio  away  extraneous  charac- 
ters from  each  card  image  so  that  only  character  iden- 
tification numbers*  carg  sequence  numbers*  and  the  x*y 
coordinate  pairs  are  left.  This  program  is  the  first 

step  in  the  adaptation  of  the  Hershey  fonts. 

0 

FILES 


SEE  ALSO 


BUGS 

The  input  and  output  files  from  this  file  must  be  re- 
directed at  the  terminal.  The  input  files  are  avail- 
aple  on  taoe*  as  is  the  entire  original  EBCDIC  taoe  of 
the  vector  definitions. 


cnwrt  .c 


/ * 


*/ 

*/ 

*/ 


1 nt 


char 


i 


oi  d» 

// 

o 1 d 

c a rd  i d n r 

n i d » 

// 

new 

C a rd  i d n r 

num  1 1 

// 

num2  t 

// 

manor  r 

// 

number  of  last  character  + 1 

endf  t 

// 

n i d 

of  last  character  in  this  font 

*pt  r ; 

// 

pointer  for  array  oos 

t emo  » 

// 

temporary  holder  for  characters  j 

ho  1 d (7)  , 

// 

another  temporary  array... 

card  (80)  , 

// 

array  to  hold  card  images 

ncard  (80)  > 

// 

array  for  "stripoed"  card  images 

St  r i Pf 

// 

f 1 aq 

--to  strip  or  not  to  strip  a card 

f 1 aq » 

// 

f 1 ag 

for  outouttinq  chatacters  ' 

gof 

// 

f 1 ag 

to  stop  recursion 

i t 

// 

counter  for  "for"  loops 

n , 

// 

card 

C 0 1 umn  counter... 

c sn » 

// 

card 

sequence  number 

cha» 

// 

c hb  f 

// 

i 

Che  t 

// 

c ha  r 

variablesforvariousops  j 

c hd » 

// 

Che; 

// 

j 

/* 

* / 

/*  PROCEDURES 

*/ 

/ * 

*/ 

qetcardC  val  ) 
i nt  val  ; { 

char  ] , t ; 
i = 0 ; 

Che  = 'A'  ; 

strip  = 1 ; 

while  ( ( cardtiJ  = getcharC)  ) i 


//  gets  one  card  image  (a  logical 
//  record)  at  a time 


' \n  ' ) 


1 ♦+  ; 
t = 0 ; 

for  ( j = ; 

if  ( ( j =: 


j <=  i ; j++  ) { 

11)  &&  ( (card  [ j ] = = 
(card  (j 1 = = 


> ' ) I ! 

O'  ) ) ) 


i f 

( card(j)  == 

) sa ve ( ) ; 

i f 

( card ( j ) ==  'O' 

) 

strip  = comoar  ( 

&c  a rd  ( j + 1 ] f h 0 1 d 

i f 

( strip  ) { 

for  ( j = 11  ; 

j <=  25  ; jt+  ) 

cha  = card [ j 1 1 

che  = card  ( i 1 ; 

} 

se 

el 
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ncardlt)  = cardCjJ  » 
t++  ; 

> 

} 

e 1 se 

{ 

ncard  tt 1 = card  I j 1 ; 

t+t  ; 

i 

} 

val  = convC  ncard/^»  ) ? 
return(  val  ) } 

> 

save(  ) { //  holds  7 characters  temporarily 

char  k } 

for(ks0;k<7;kt+) 
holdtkj  = cardCk  + 121  ; 

> 

compare  arrcfarrh  ) //  compare  2 strings; 

char  arre  [ )r  arrh  [ ] ; { //  return  1 if  =r  0 if  ! = 

char  k ! 
k s 0 ; 

while  ( arretk)  ==  arrhtkl  ) { 

k + + ; 

if  ( k = = 7 ) break  ; 

) 

if  ( k ==  7 ) 

return(  1 ) ; 

else 

return(  0 ) ; 


conv(  arr,nr  ) //  converts  a string  of  nrs  of 

char  arr  [ ] » nr  ; { //  length  nr  to  a decimal  value 

i nt  j f sum  ; 
char  ch  ! 
sum  = 0 ; 

for(j=0;j<nr;j++)  { 

c h = a r r [ j ) ; 

sum  = sum  t ( (ch  - '0')*ten(  nr  - (jtl)  ) ) ; 

> 

return(  sum  ) ; 


ten(  nr  ) //  returns  10**nr 

i nt  nr  ; { 

i nt  ) f sum  ; 
sum  = 1 ; 

for  ( j =0  ; j <nr  ; jf+  ) 
sum  s sum  * 10  » 
return  ( sum  ) ; 

> 
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endch(  ch  ) //  got  all  end-ooints  ? 

char  ch  ; { 

int  ok  ! 


switch! 

ch  ) 

{ 

case 

’ J' : 

case 

•K  • : 

case 

'L'  : 

case 

• M ' ; 

case 

•N* : 

case 

'O' ; 

case 

'P' : 

case 

'O' : 

case 

•H' : 

case 

ok  = 0 ; 
break  ; 
default: 

ok  = 1 J 

> 

return!  ok  1 ; 

> 

finch!  nr  ) //  removes  filler  chars 

int  nr  ! { 

int  t / 

while  ! !ncardtnrJ  1=  '\n')  &&  ! go  ) ) ! 

go  = endch!  ncardCnr]  ) ; 

n r + ! 

} 

i f ( go  ) { 

t = getcard!  0 ) ! 

i f ( t ==  nid  ) go  = endch!  che  ) ! 
finch!  0 ) ! 

> 

> 

/*  */ 

/*  MAIN  PROGRAM  */ 

/ * * / 

main!  ) ! 

nid  = 0 ; 
maxnr  = 3927  ; 
endf  =3729  ; 
while  ! nid  < maxnr  ) < 

nio  = oetcaro!  0 ) ; 

Pt  r = &ncard  [9]  ; 

csn  = conv ( pt  r , 3 ) } 
flag  = 1 » 
go  = 1 ; 
n = 7 ; 

while  ! ( temoCO]  = ncardtnl  ) 1=  '\n*  ) ! 

for  ! i = 1 ; i < 9 ; it+  ) 
temoti]  = ncardCn  + il  ; 
n = n + 9 ; 

pt  r = &t  emp  (21  i 
numl  = conv!  temo»2  ) ; 
num2  = conv!  ptr,2  ) ; 

if  ! !numl  ==  num2)  &&  (numl  ==  50)  ) { 

for(i=0;i<n;i++) 
putchar ( ncard  [ i ] ) } 

putchar ( ' \n ' ) ; 
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f i nch ( n ) ; 

flag  - 0 ; 

if  ( nid  >s  endf  ) nid  = 4000  ; 

> 

} 

if  ( flag  ) 

for  ( i =0  ; i <=n  ; i++  ) 
putchar(  ncardiil  ) ; 


C.  VECTOR  GENERftTION 


V 

Once 

the 

Hershey  oata 

had  been 

convert  ed 

to 

ASCII 

and 

i 

M. 

5 1 r i pped 

of 

ext  raneous 

digits 

and  characters,  i 

t was 

con- 

verted  to 

vector  form  using  the 

"mkvec  .c" 

program  1 i sted 

below. 

The 

output  files 

from 

"cnvrt.c"  provided 

the 

i nput 

to  "mkvec 

.c" ; 

these  files 

had  been 

arranged 

by 

font 

with 

upper  case  letters^  lower  case  letters,  and  digits  and  spe- 
cial characters  grouped  in  that  order.  A large  "if  ...  else 
..."  statement  was  used  to  determine  whether  each  character 
being  processed  was  a letter  or  a digit  or  special  charac- 
ter; letters  were  placed  into  the  proper  position  by  an  ar- 
••av  counter,  and  digits  3iid  special  characters  were  run 
through  a large  case  statement  to  determine  their  position 
in  the  array.  Two  additional  large  case  statements  were 
necessary  to  transliterate  the  24  Greek  and  the  32  Cyrillic 
letters  into  their  English  eouivalents. 

The  t rans 1 i t erat i ons  useo  were  taken  from  Reference  4 
and  are  reproduced  on  the  followino  page.  The  Gothic  German 
was  transliterated  into  English  on  a one-for-one  basis,  with 
the  three  extra  lower  case  letters  going  into  the  octal 

UO I 


FIGURE  C-2.  Cyrillic  Transliteration 


codes  0173»  017a,  and  0175»  immediately  following  the  "z". 
Gothic  Italian  was  transliterated  comoletely  on  a one-to-one 
basis. 

This  program  put  the  digitization  into  the  form  that  was 
usea  for  the  TEKTRONIX  program  described  in  Appendix  and 
as  the  data  base  from  which  the  dot  matrix  character 
reoresentat i ons  were  made. 


MKVEC 


17  March  1977 


MKVEC 


NAME 

mkvec  “•  out  a file  into  vector  format 


SYNOPSIS 

mkvec  < Hershey  font  > 


DESCRIPTION 

The  output  from  "cnvrt"  provides  the  input  for  this 
program;  this  program  takes  each  character  identifica- 
tion number,  goes  through  each  card  with  that  charac- 
ter id,  and  puts  each  x,y  coordinate  pair  into  a 
16-bit  word.  The  left  byte  receives  the  x coordinate 
and  the  right  byte  receives  the  y cooroinate. 

The  program  also  sets  up  a 25b  word  directory  for  each 
font.  The  even  numbered  words  from  0 to  25^ 
correspond  to  the  ASCII  codes  from  0 to  0177  and  con- 
tain the  widths  of  the  appropriate  character.  The  odd 
numbered  words  contain  pointers  to  the  byte  at  which 
the  vector  definition  of  the  character  begins.  This 
program's  output  files  provided  the  data  base  from 
which  "drawhf"  and  "makehf"  obtain  their  vector  defin- 
itions for  either  display  or  a i g i t i zat i on  . 


FILES 


SEE  also 

makehf,  cnvrt 


sues 

"mkvec"  automatically  writes  the  vector  files  to 
directory  " /us r /doy 1 e/h f on t s . f " , which  might  not  be  in 
existence  at  this  point  in  time.  If  this  program  must 
be  used,  then  a simple  modification  to  the  source  code 
will  write  the  output  to  any  file  aesired. 
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/* 

*/ 

/* 

mk  vec 

.c  */ 

/* 

*/ 

Ode  f i ne 

SR 

0 

// 

Simplex  Roman 

Odef i ne 

DR 

1 

// 

Duplex  Roman 

Ode  f i ne 

CR 

2 

// 

Complex  Roman 

Odef i ne 

TR 

3 

// 

Triplex  Roman 

Odef  i ne 

Cl 

a 

// 

Comp  lex  Italic 

Ode  f i ne 

TI 

5 

// 

Triplex  Italic 

Odef i ne 

SS 

6 

// 

Simplex  Script 

Odef i ne 

CS 

7 

// 

Comp  lex  Script 

Odef i ne 

SG 

8 

// 

Simplex  Greek 

Ode  fine 

CG 

9 

// 

Complex  Greek 

Ode  f i ne 

GE 

10 

// 

Gothic  English 

Ode  f i ne 

GG 

1 1 

// 

Gothic  German 

Odef i ne 

GI 

12 

// 

Gothic  Italian 

Ode  f i ne 

CC 

13 

// 

Comp  lex  Cy  r i 1 1 i c 

Ode  f i ne 

NOTNUM 

-1 

Ode  f i ne 

EOC 

031062 

//  octal  for  " 

5050" 

Ode  f i ne 

EOF 

99P9 

//  end  of  font 

for  MU 

Ode  f i ne 

enofont 

9000 

//  end  of  font 

n 

Odef i ne 

R 

0 

// 

open  a file  for 

reading 

Ode  f i ne 

M 

1 

// 

open  a file  for 

writing 

Ode  fine 

MODE 

Obaa 

// 

access  to  files 

c reat  ed 

int  M110192J  ; 

i nt  oos i t » 
aoos  > 
num  3 f 
i dh  f 
k t r f 
c w r 
X i > 

I *Dt  r ; 


1 char 

card  [801  , 

1 

xyval  [14a]  (21  » 

t emp  [4]  , 
f 1 ag» 

C k t r , 
num  1 , 
num2 » 
csn; 

char 

1 

i nf i 1 e [ 1 i 

"/ .dov 1 e . 0 1 / font s/-- .out " } ; 

1 char 

out  f i 1 e ( 1 { 

1 

" /usr/dov 1 e/h f ont s . f . f " } } 

char 

rot  r » wPt  r ; 

i 


5 

I 

I 

I 


1 la 


i 


setcarC  x,  y ) 
int  X » y ; < 


>1 


M[x)  = ( M[x]  & 0377  ) ! ( y<<8  ) ; 

> 

setcdr(  %,  y ) 
i nt  * » y ; { 

M(xJ  = ( M[xl  & 0177400  ) ! y ; 

> 

qetcapd(  ) { 

int  i ; 

char  buf  n / t ! 

i = 0 ; 

t = read(  rptr#  buf»  1 ) » 
while  ( (cardCil  = buf  [0]  ) !=  '\n'  ) 
i 

t = readC  rptr,  buf»  1 ) t 
i ++  ; 

1 

idh  s conv(  card»4  ) ; 

p = &card  [4]  ; 

csn  - conv(  p/3  1 } 

} //  end  getcard(l 

start ( ) { 

int  i ; 

for  ( j =0  ; J <256  ; j++  ) 
w ( j ] = 0 ; 

rntr  = open(  infile»  R ) ; 

wDtr  = create  outfile#  ''^OOE  ) > 
idh  = 0 ; 
kt  r = 64  ; 
c k t r = 0 ; 
flaq  = 1 ; 
apos  = 256  ; 

> //  end  start 

reset ( ) { 

int  i ; 

M[0)  s M(l)  = 0 ; 

M (aPos]  = EOF  ; 
for  ( i s 0 ; i <=  apos 
wr i t e ( wpt  r » [ i 1 , 

> 

notnumC  va1  ) 
int  val  ; { //is  this  a number  or 

int  ok  ; 

if  ( (val  >=  700)  &&  (val  <=  734)  ) 

{ 

if  ( val  <=  715  ) ok  = val  - 700  ? 
else  ok  = va 1 ; 

> //  SRf  SG»  SS  number 

else 

if  ( (val  >=  2200)  (val  <=  2275)  ) 

( 


; iff  ) 

2 ) ; 

//  end  reset 


char 
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if  ( val  <-  2215  ) ok  = va1  - 2200  t 
else  ok  = val  » 

> //  CR»  CGf  Cl  number 

e 1 se 

if  ( (val  >=  2700)  &&  (val  <=  2728)  ) 
ok  = val  - 2700  ; 

//  OR  number 

e 1 se 

if  ( (val  >=  2750)  &&  (val  <=  2778)  ) 
ok  = val  - 2750  ; 

//  CS  number 

e 1 se 

if  ( (val  >=  3200)  &&  (val  <=  3228)  ) 
ok  = val  - 3200  ; 

//  TR  number 

e 1 se 

if  ( (val  >=  3250)  ?.&  (val  <=  3278)  ) 
ok  = val  - 3250  ; 

//  TI  number 


if  ( (val  >=  3700)  &&  (val  <=  3728)  ) 


ok  = val 

- 3700  ; 

//  GE, 

GG»  GI  number 

e 1 se 

ok  = NOTNUM  ; 

//  it 

'sacharacter... 

return ( 

ok  ) ; 

> 

//endnotnum 

cy r ( val  ) 

i nt  val ; { 

i nt  ok  ; 

sw i t c h ( 

val  ) 

( 

case 

280  1 : 

// 

a 

ok 

= 65; 

break ; 

case 

2802; 

// 

B 

ok 

= 6o; 

break; 

case 

2803: 

// 

V • ; 

ok 

= 86; 

break; 

case 

280a; 

// 

G 

ok 

= 7i; 

break ; 

case 

2805: 

// 

D 

ok 

s o8; 

break ; 

case 

2806; 

// 

E 

ok 

S 69; 

break ; 

case 

2807; 

// 

r 

ok 

= 09 ; 

break ! 

J 
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I 


I 


case 

2808: 

// 

Z 

Ote 

= <90  ; 

break ; 

case 

2809: 

// 

I 

ok 

= 73; 

break ; 

case 

2810: 

// 

Y 

ok 

= 89; 

b reak ; 

case 

2811: 

// 

K 

ok 

= 75; 

break ; 

case 

2812: 

// 

L 

ok 

= 7b; 

break; 

case 

2813: 

// 

VI 

ok 

II 

break; 

case 

28ia: 

// 

N 

ok 

= 78; 

break; 

case 

2815: 

// 

0 

ok 

= 79; 

break; 

case 

281b: 

// 

P 

ok 

= 80  ; 

break ; 

case 

2817: 

// 

R 

ok 

= 82; 

break; 

case 

2818: 

// 

S 

ok 

= 83; 

break; 

case 

2819; 

// 

T 

ok 

= 8u; 

break; 

case 

2820; 

// 

U 

ok 

= 85; 

break; 

case 

2821  ; 

// 

F 

ok 

= 70  ; 

break ; 

case 

2822: 

// 

H 

ok 

= 72; 

break; 

case 

2823; 

// 

«- 

ok 

= 95; 

break ; 

case 

282^1; 

// 

tt 

ok 

= 35; 

break; 

case 

2825; 

// 

ok 

= b«; 

break ; 

1 
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case  262b 


//  & 


ok 

= 38; 

break ; 

1 

1 

case 

2827: 

//  ' 

ok 

= 39; 

break; 

case 

2820: 

//  036 

ok 

= 30; 

break ; 

case 

2829: 

//  022 

ok 

s 18; 

break ; 

case 

2830: 

//  023 

ok 

= 19; 

break; 

case 

2831  ; 

//  020 

ok 

II 

break; 

case 

2832: 

//  021 

ok 

= 17; 

break; 

case 

2901  : 

//  a 

ok 

O' 

II 

break ; 

case 

2902: 

//  b 

1 

ok 

= 98; 

break; 

1 

case 

2903: 

//  V 

ok 

= 110; 

break ; 

case 

290«: 

//  q 

ok 

II 

O 

LH 

break  t 

case 

2905: 

//  d 

ok 

O 

o 

II 

break; 

case 

290b: 

//  e 

ok 

= loi; 

break ; 

case 

2907: 

// 

ok 

= l; 

break ; 

case 

2900; 

//  z 

ok 

= 122; 

break ; 

case 

2909: 

//  i 

i 

i 

ok 

= 105; 

break  ; 

case 

2910; 

//  V 

ok 

= 121  ; 

break ; 

1 

i 

• 

case 

2911; 

//  k 

i 

. 

1 

1 

ok 

= 10  7; 

break ; 

1 

case 

2912: 

//  1 
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case 

ok 

case 

ok 

case 

ok 

case 

ok 

case 

ok 

case 

ok 

case 

ok 

case 

ok 

case 

ok 

case 

ok 

case 

ok 

case 

ok 

case 

ok 

case 

ok 

case 

ok 

case 

ok 

case 

ok 

case 


108;  break; 

2913:  //  m 

= 109;  break; 

29ia;  //  n 

= 110;  break; 

2915:  //  o 

= 111;  break ; 

2916:  //  p 

= 112;  break; 

2917:  //  r 

= 114;  break; 

2918:  //  s 

= 115;  break; 

2919:  //  t 

= 116;  break ; 

2920:  //  u 

= 117;  break; 

2921:  //  f 

= 102;  break; 

2922:  //  h 

= 104;  break ; 

2923:  // 

= 25;  break; 

2924:  //  " 

= 34;  break; 

2925:  //  026 

= 22;  break; 

2926:  //  + 

~ 43;  break; 

2927:  //  0140 

= 9o;  break; 

2928:  //  = 

= 61;  break; 

2929:  //  004 

= 4;  break; 

2930:  //  037 

31;  D r eak  ; 
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r 

II 


case  2*531 : //  < 

ok  ~ 60;  break; 


case  2932:  //  > 

ok  = 62;  break; 


} 


returnC  ok  ) } 

) 


//  end  cyr 


grkch(  val  ) 
i nt  val  ; { 
i nt  ok  ; 


//  which  Greek  character? 


switch(  val  ) { 


case  529 

: case 

2029: 

// 

G 

ok  - 

71  ; 

break  ; 

case  532 

; case 

2032; 

// 

Z 

ok  = 

90 ; 

break  ; 

case  533 

: case 

2033; 

// 

H 

ok  = 

72; 

break ; 

case  53^ 

: case 

2034 ; 

// 

Q 

ok  = 

81  ; 

break  ; 

case  536 

: ca^e 

2036; 

// 

k 

ok  = 

75; 

break  ; 

case  537 

: case 

2037  ; 

// 

L 

ok  = 

7 b; 

break; 

case  538 

: case 

2038: 

// 

M 

ok  s 

77; 

break ; 

case  539 

: case 

2039; 

// 

N 

ok  = 

78; 

break ; 

case  5U0 

: case 

2040  : 

// 

X 

II 

o 

88; 

break; 

case  5^3 

: case 

2043; 

// 

R 

ok  = 

82; 

break ; 

case  5aa 

; case 

2044: 

// 

S 

ok  = 

8 3; 

break ; 

case  5a5 

: case 

2045; 

// 

T 

ok  = 

CD 

oreak ; 

case  546 

: case 

2046 ; 

// 

IJ 

ok  = 

85; 

break ; 
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t:. 


'I 

1} 

I 


case  649:  case  2149:  //  y 


ok  = i2i; 

break ; 

case  650:  case 

2150:  //  w 

ok  = 119; 

break ; 

default: 

//  A,B,0,E,I,0,P 

ok  = kt 

break ; 

> 

return!  ok  ) ; 

} 

which!  val  ) 

i nt  val  ; { 

i nt  ok  ; 

if  ( val  < 10 

) ok=val+48r 

else 

switch! 

val  ) 

( 

case  10: 

// 

• 

ok  = 

46  ; 

break  ; 

case  11: 

// 

f 

ok  = 

44  ; 

break  ; 

case  12; 

// 

• 

• 

ok  = 

58  ; 

break  ; 

case  13: 

// 

• 

ok  = 

59  ; 

break  ; 

case  14: 

// 

f 

• 

ok  = 

33  ; 

break  ; 

case  15; 

// 

ok  = 

63  ; 

break  ; 

case  716 

: case 

2216:  // 

case  27: 
ok  = 

39  ; 

Break  ; 

case  717 

: case 

2217:  // 

case  28: 
ok  = 

34; 

break  ; 

case  18: 

case 

734;  // 

& 

case  2272 ; 

ok  = 38  / 

break  ; 

case  719:  case  2274;  //  $ 
case  19: 

If  = ^ 


case  720;  case  2220;  // 
case  20; 

ok  = U7  ; break  ; 

case  721;  case  2221;  // 
case  2 1 ; 

ok  = 40  ; break  ; 

case  722:  case  2222;  // 
case  22: 

ok  = 41  ; break  ; 

case  728;  case  2219;  // 
case  23: 

ok  = 42  ; break  ; 

case  724;  case  2231;  // 
case  24; 

ok  = 45  ; break  ; 

case  725:  case  2232;  // 
case  25; 

ok  = 43  f break  » 

case  72b;  case  2258;  // 
case  2b: 

ok  = bl  ; break  ; 

case  723;  case  2229;  // 
ok  = 124  ; break  ; 

case  733;  case  2275;  // 
o 

case  2223 
ok  = 

case  2224 
ok  = 

case  2225 
ok  = 

case  222b 
ok  = 

case  2241 
ok  = 

case  2242 
ok  = 

case  22b2 


z 


case  2263: 

// 

ok  = <)5  ; 

bpeak  ; 

case  227 1 : 

// 

ok  = 37  ; 

bpeak  ; 

case  2273; 

// 

ok  = 6a  ; 

bPeak  ; 

default: 

ok  = 0 ; 

bpeak  ; 

> 

peturnC  ok  ) ; 

} //  end  of  which 


bu i 1 dc  h I ) { 

i nt  D»  test  ; 
i nt  k ; 

p = apos  » 

for  (k=0Jk<xi  ; k++  ) < 

setcarC  apos»*yval  Ik)  [01  ) ; 
setcdrC  aoos»xyval  [k]  [11  ) ; 

apos  + + ; 

> 

test  = M(aoos  - 1)  ; 

i f ( test  1=  EOC  ) 

pe r TOP ( "s t oopea  befone  EOC")  ; 
petupnC  p ) ; 


conv(  appfop  ) 
chap  appt  )/  np  ! 
i nt  j / sum  ; 
chap  ch  ; 
sum  = 0 ; 
f o p ( j = 0 ; j 
c h = a p p [ j ] 
sum  = sum  + 

> 

petuPnC  sum  ) ; 

} 

ten(  np  ) //  retupns  10**np 

i nt  np  ; [ 

i nt  if  sum  ; 
sum  = 1 ; 

fop(  j=0;  j<np;j++) 
sum  = sum  * 10  ; 
petuPnC  sum  ); 


mainC  3Pgc»  apgv  ) 
int  apqc  » 


//  convents  a stping  of  numbeps  of 
{ //  length  np  to  a decimal  value 

< n p ; j + + ) [ 

( (ch  - '0')*ten(  nP  - ( j 1 ) ) ) f 


chap  *apgv  tl  » ( 

int  n,  *p»  last  » biqch  » 

i nt  k ? 

char  greekr  cyPilHc; 

infileCW]  = outfilel20]  = argvlllIO]  ; 

infileClS]  s outfi1e[2ll  s angvllldl  » 

bigch  = 26  ; 

greek  = 0 ; 

cyrillic  = 0 ; 

if  ( inf i le  1181  ==  'G*  ) { 

if  ( infiletl7]  1=  'G*  ) { bigch  = 24;  greek  = 1 ; } 

> 

if  ( infile(18)  'C'  ) cyrillic  = 1 7 


St  art ( ) ; 

getcardi)  7 


while  ( idh  1=  ENOFONT  ) { 

xi  = 0 ; 

last  = idh  ; 
ktr  = ktr  + 1 ; 

Cktr  ~ cKtr  + 1 ; 

while  ( idh  ==  last  ) { 

n = 7 ; 


while  ( (templOl  ~ cardinJ)  1=  *\n'  ) { 

for(k=i;k<a;  k*+) 
tempCk]  s cardCn  + kJ  ; 
n = n + 4 ; 

p = &temp  [21  7 

numl  = conv(  temp, 2 ) ; 

num2  = conv(  p,2  ) 7 
if  ( (csn  ==  1)  &8r  (n  = = 11)  ) < 

if  ( numl  > 50  ) numl  = 100  ~ numl  7 
Cw  = numl  + num2  7 
} 

e 1 se 

( 

xyval  (xi]  101  = numl  ; 

xyval (xi) (1)  = num2  7 

X i ++  ; 

1 

> 


getcard(  ) 7 

> 

if  ( { cktr  > bigch  ) ( flag  ) ) i 

ktr  = 97  7 
cktr  = 0 7 
flag  - 0 7 
> 

if  ( (num5  = no t num ( 1 as t ) ) ==  NOTMUM  ) 
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1 


{ 


if  ( gpeek  ) posit  s gpkch(  last  ) * 2 ; 

else  if  ( cyrillic  ) posit  = cyr(  last  ) * 2 I 
el se  posi t = kt  r * 2 » 

> 


else 


{ 


posit  = which(  num3  ) * 2 » 
ktp  = 0 ; 

} 

pt  p = bu i 1 dc h ( ) ; 

Mt  posit  ) = cw  ; 

M ( posi t + 1 1 = ot  p ; 


} 


reset  ( ) 


//  end  of  main,.. 


APPENDIX  D.  FONT  OUTPUT  ROUTINES 


A.  VERIFYING  THE  VECTOR  DATA 

After  all  of  the  fonts  had  been  converted  into  vector 
form»  "drawhf.c"  was  written  to  allow  visual  inspection  of 
each  character  in  each  font.  This  inspection  ensured  that 
all  of  the  data  had  been  transformed  correctly  and  was 
available  for  further  use  in  the  vector  to  dot  matrix 
conversion.  It  also  revealed  several  minor  omissions  that 
had  allowed  special  cases  to  slio  through  the  vector  genera- 
tion program  describee  in  paragraph  C of  Appendix  C. 

This  program  is  available  as  source  code  on  directory 
"/. fonts. 02/hershey"  and  is  listed  as  "drawhf.c".  The  ob- 
ject code  program  useo  to  display  the  characters  on  the  TEK- 
TRONIX ^1014  is  available  on  directory  "/. fonts. 01/hftools". 
Any  character  from  any  of  the  fonts  currently  available  can 
be  drawn  by  changing  to  the  directory  above  and  typing 
"drawhf  FONT",  where  FONT  is  a t h r ee-c h a r ac t e r code  specify- 
ing the  font  desired.  Fonts  available  are: 


HSR . . . . . S i mo  1 e X Roman 
HUR . . . . . Duo  1 e X Roman 
HLR . . . . . Comp  1 e X Roman 
H T R . . . . . T r i o 1 e X Roman 

HCI Complex  Italic  ( 

Hll Triplex  Italic 


HSS Simole*  Script 

HCS Complex  Script 

HSG . , . . . S i mp 1 e X Greek 
HCG . . . . . Comp  1 e X Greek 

HGE Gothic  English 

HGG . . . . . Go t h i c German 

HGI Gothic  Italian 

HCC Complex  Cyrillic 


Many 

spec i a 1 

characters 

are 

available  only 

i n 

the  corn- 

ol ex  font  s! 

howe ve  r , 

the 

user 

is  notified 

i f 

the 

character 

des i red 

i s 

not 

a va  i 

1 ab  1 e 

i n 

the  font 

currently  being 

displayed.  The  size  of  the  character  drawn  on  the  CRT  can 
be  changed  by  adding  a size  parameter  to  the  program  call» 
i.e.f  "drawhf  FONT  SIZE".  If  no  "SIZE"  parameter  is  given, 
the  program  defaults  to  a value  of  eight?  this  size  was 
chosen  because  it  made  all  of  the  vectors  visible,  and  be- 
cause it  minimized  the  distortion  noticeable  on  the  short 
vectors  used  to  approximate  curves.  Parameters  larger  than 


20  and  less  than  one  will  default  to  those  values 


DRAWHF 


17  March  1977 


DRAWHF 


i 


NAMt 

drawhf  draw  a Hershey  font  on  the  TEKTRONIX  4014 


SYNOPSIS 

drawhf  < Hershey  font  > [ size  1 


DESCRIPTION 

This  orogram  draws  characters  from  the  selected 
Hershey  font  on  the  TEKTRONIX  4014.  The  fonts  must  be 
selected  from  the  ^ist  given  on  the  oreceding  pages. 

The  size  of  tne  character  display  on  the  CRT  can  be 
changed  by  executing  the  program  with  an  optional  size 
parameter.  This  should  be  an  integer  between  1 and 
20.  The  default  value  is  8. 


FILES 

SEE  ALSO 

makeh  f 


BUGS 

Only  one  character  can  be  drawn  at  a time.  It  is  also 
necessary  to  terminate  the  program  and  re-execute  it 
to  look  at  another  font. 


I 


129 


#def  i ne 

EOF 

9999 

<<de  f i ne 

EOC 

031062 

Ode  f i ne 

RES 

102a 

Ode  f i ne 

X 

512 

Ode  fine 

Y 

512 

Odef  i ne 

R 

0 

Ode  f i ne 

1 

i nt  M I256J / 

f Pt  r , 

pt  r ; 

i n t c h 1 1 20)  ; 

char  path[l  < 

"/. fonts. 01/hershey/””.v 

} ; 

char  flap; 

ma  i n ( a rgc  > a rov  ) 

int  arqc  i 

char  *arqv  [J  } { 

int  X/  y,  ktr  , xx,  yy  ; 

int  if  Of  numl»  nun2»  size  » 

Char  ibuf[201»  io»  k f stop  t times 
char  doit  } 

i n i 1 1 ( ‘JtsO  ) ; 

term (3/  RES)  ; 
patr[19)  = argv[l][ll  ; 
path[20J  = argv(l)  (2)  » 

i f ( argc  ==  3 ) i 

size  = atoiC  argvt21  ) ; 
if  ( size  > 20  ) size  = 20  ; 
else  if  ( size  <=  I ) size  = 1 * 
) 

else  size  = 8 ; 

fptr  = open(  path,  R ) ; 

k = read(  fptr,  M,  512  ) ; 

ibuf(O)  = '0'  ; 
while  ( ibuf  (0)  1=  ’)  ' ) { 

i = i p a 0 ; 
flag  = 1 ; 
erase!)  ; 
movabs (100,800)  ; 
anmode ( ) ! 


pr i nt f ( " i nput  the  aesired  character  followed  by  c/r:")  $ 
while  ( (ibuftip]  = getcharO)  i=  '\n'  ) 

ip  + + ; 

X X = X ; 

yy  = Y ; 

mova-bs  ( X X » yy  ) » 

p s ( nutnl  = IbuflO]  )<<1  * 


while  ( flap  ) ( 

stop  - times  = 1 ; 
ptr  = Mtp'M)<<l  » 
if(ptr==0)  { 

movabs(100»200)  ; 

anmode ( ) ? 

pr i nt f { "S0R9Y : ' %c  ' is  not  available  in 

ibuftOJ)  ; 


stop 

> 


else 

wh  i 1 


■ k = 

seek ( fptr»  otr/ 

0 ) 

e ( 

StOD  ) { 

do  i t 

= 1 ; 

k = 

read(  fotr,  ibuf» 

2 ) 

f 

X - 

ibuf  in  ; 

y = 

i bu  f [0]  ; 

i f ( 

x>50)  x=x- 

100 

i f ( 

y>50)ysy- 

100 

t 

i f ( 

t i mes  ) { 

i f 


X S X X ♦ C X 

y = yy  ” (v 
movaos ( X » y ) 
doit  ■ 0 ; 
times  = 0 ; 
> 

( X ==  50  ) 
i f ( y 1=  0 


size) 

size) 


i * ( 
else 
> 


{ 
) 

y = = 


{ 

50 


) stop  = 0 


perrorC'bad  y value. 


else 

{ 

k = readC  fotr,  ibuf»  2 ) ! 
if  ( (x  = ibuftl))  > 50  ) X = 

i f ( (y  = ibuf  [0]  ) > 50  ) v = 

X = XX  t (x  * size)  ; 
y = yy  " (y  * size)  ! 
movabs ( x » y ) ; 

) 

) 

else  { 

if  ( doit  ) 

( 

X s XX  ♦ (x  * size)  r 

y = yy  • (y  * size)  ! 

drwabs ( x , y ) ; 


this  font 


X - 100  ; 

y - 100  ; 


H 

f 
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} 


} 


flag  = 0 ; 
tsend()  ; 

> 

movabs (100^150)  ; 
anmode ( ) } 

pr i n t f ( "en t ep  c/r  to  continue^  1 c/r  to  exit:")  ! 
i o = 0 ; 

while  ( (ibuftio)  = getchar())  i=  '\n'  ) 
i Of  ♦ ; 

) 

erase ( ) ! 
finitt(0f750)  / 

} 


A sample  of  the  CRT  display  from  "drawhf"  is  located  on 
the  following  page. 

B.  VERIFYING  DIGITIZED  FONTS 

"Prfont"  is  a font  manipulation  program  designed  to 
display  an  entire  digitized  font  file  by  walking  through  the 
header  table  and  plotting  all  of  the  characters  that  are  de- 
fined in  the  font.  It  will  print  out  one  font  at  a time  or 
as  many  as  are  needed#  depending  uoon  the  arguments.  The 
program  accepts  full  oath  names  as  input;  these  arguments 
can  be  used  in  several  ways#  as  is  demonstrated  by  the  exam- 
ples given  oelow.  All  of  these  are  valid  calls  to  "prfont"; 

1)  prfont  HCC12  BDJ8 

The  user  wants  to  display  fonts  HCC12  and  B0J8#  both  of 
whicn  must  exist  on  directory  "/, font s . 0 1 / font " . 
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enter  c/r  to  continue,  3 c/r  to  exit 


V 


2)  orfont  /us r /doy 1 e/ f on t s/H* 

The  user  desires  to  display  all  of  the  Hershey  fonts  lo- 
cated on  a specified  directory. 


3)  prfont  SIGM41  HGG16  8DR25  HCGIO  /us r /mcco r d/ t emp 

The  user  wants  to  display  four  files  from  directory 


"/.  font s , 0 1 / font  " ana  a file  called  "temp"  on  directory 
"/usr/mccord" . 


Commands  of  the  tyoe  "prfont  "orfont  h*",  and 
"prfont  80*"/  will  not  display  all  of  the  fonts  on  the  main 
font  directory/  nor  will  they  display  any  combination  of 
them.  To  display  the  entire  collection  of  fonts  or  selected 
groups  of  them/  the  user  must  change  directories  to 
"/.fonts. 01/font"  and  tyoe  "../prfont  < ARG  >"/  where  ARG  is 
some  font  name  combination  of  the  form  */  H*,  MATH*/  and  so 


"Prfont"  will  hanole  spacing  and  oaqeoreaks/  and  will 
print  the  font  file  name  with  each  font.  with  fonts  above 
^0-42  point/  the  program  may  tell  you  that  it  is  out  of 
memory  and  exit.  It  will  suggest  that  you  try  a smaller 
oagewidth/  which  will  cause  your  fonts  to  be  plotted  with 


fewer  characters  per  line. 
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PRFONT  2 May  1977  PRFONT 


NAME 

prfont  -•  display  a digitized  font  on  the  VERSATEC 
plotter/printer 


SYNOPSIS 

. prfont  [-pagewicth]  < SAIL  font  > ! < Hershey  font  > I 
< complete  path  name  > 


OESCRIPIION 

This  program  allows  the  user  to  display  a complete  di” 
qitized  font  file  on  the  VERSATEC  o 1 o t t e r /p r i n t e r » so 
th^t  he  can  see  how  it  will  actually  look.  It  is 
especially  useful  in  seeing  whether  or  not  a Hershey 
font  will  be  acceptable  after  digitization. 

On  fonts  larger  than  ^0-^2  points  it  may  be  necessary 
to  decrease  the  pagewidth  used  by  "prfont"  to  deter- 
mine the  size  of  its  plot  buffer.  If  this  becomes 
necessary^  the  program  will  exit  and  suggest  that  you 
try  a smaller  oagewidth.  Pagewidth  is  initialized  to 
21b  bytes. 


FILES 

/de V / r vp 
/oev/spp 


SEE  also 

ma k eh  f » ed  f 


BUGS 

"prfont"  occasionally  prints  some  extra  dots  and  lines 
after  completing  the  last  character  in  the  font  direc- 
tory. 
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#define  SPACE  1 //  one  1/^  inch  vertical  space 

^define  TOP  230  //  top  margin 

^define  PAGEHT  1^1*100 

int  roww»  rows? 

int  linecount  PAGEHT; 

int  oagewth; 

int  prdev»  pldevf  infont; 

int  htf  maxwf  lht»  fp; 

int  head#  tail#  nodeotr; 

int  zeroin#  hdr  [2561  ; 

char  *lp#  *p; 

char  ft  Oiu;  char  nl  012; 

char  header[401  1 ” / . f on t s . 0 1 / f on t / " } ; 

char  prbuf(l321#  plbuf[2641; 

s t rue  t c node  ( 

int  cc;  //char  code 

char  *optr;  //->lst  raster  line 

char  *lptr;  //->  next  raster  line 

intrw;  //raster?! new idth 

int  bytes;  //bytes  per  raster  line 

intlk;  //leftkern 

int  rft;  //rows  from  too 

int  dre;  //data  row  count 

> cl ist  1128]  ; 
struct  cnode  *a; 
struct  cnode  *fset[128l; 

ma i n ( a rgc  # a rg v ) 

int  arge;  char  •*argv;  { 

register  int  i#  argotr; 
char  go; 
argot  r = 1 ; 

i f ( (ordev  = ooen ( " /dev/spo" # 1 ) ) < 0)  { 

orintfC cannot  open  orinter");exit();} 
i f ( { p 1 de v=ooen ( " /de V / r vo" # 1 ) ) < 0)  { 

pr i nt f ( "cannot  ooen  o 1 o 1 1 e r " ) ; e x i t ( ) ; > 
if  (argv(l)  tOl  ==  {//reset  pagewth 

oagewth  = atoi ( &argv[ll  111  );  go  = 1 ; > 

else  { oagewth  = 21b;  go  = 0 ; 1 

i n i t ( ) ; 

wh i 1 e ( --a rgc  !=  go)  {//process  all  files 
D = argv [argot r+dol ; 
if  ( *o  ==  ) { //full  pathname 

if  ( ( f psooen (argv (arcot r + go]  # 0 ) ) < 0)  { 

or  i nt  f { "cannot  ooen  2s  " # a rav  ( a rgp t r + ao  J ) #* 
e X i t ( ) ; } 

printf("%s  opened ...,"# a rgv  la rgp t rtgo)  ) ; 

] 

else  { //oreoeno  / f ont s . 0 I / f ont 


f or ( i = 1 6; ( header  I i ] = *p  + + ) J=  *\0';i+  + ) ; 
i f ( ( fo=open(header, 0) ) < 0)  ( 

pri nt f ( "cannot  ooen  %s " » heade r ) ; ex i t ( ) » > 

printf("%s  opened "^header); 

} 

infont  = head  = tail  = nodeptr  = roww  = 0; 
read(fp»hdr,512);  read(fo,&ht»2); 
read(fp»&maxwf2);  read(fp/&lhtr2); 
checkC);  //check  for  bad  font  file 
i f ( ht  <=  82  ) i 
//set  vert  spacing 
if  (ht  <=  40 ) rows  = 2 ; 
e 1 se  rows  = 3 ; 

else  rows  = 4 ; 

//pgbk  if  font  oisolay  won't  fit 
i f (nroom ( rows*ht  +-40))  oagebreakC); 
p = orbuf;  f o r ( i =0 ; i <60 ; i + + ) *o  + t = ' 
f o r ( i =0  ; ( *o  t = arov  [argpt  r fgol  [ i ] I 1=  *\0';i 
*p  = n I ; 

//center^  write  font  name 
write(prdev,Drbvjf»i->'62); 
for(i=0;i<25;i++)  write(pldev»zero/2); 

I i necount  =+  2*5 ; 
while  (1)  { 

get  row  ( ) ; 
put  row  ( ) ; 

if(infont  > 127)  break; 

} 

close(fp);  printf("closed\n");  argptr++; 

//i f need  be»  ogbk 
i f ( n room ( SPACE *2  ) ) oagebreakC); 
else  space C SPACE*2 ) ; 

) 

ex  i t ( ) ; 

> 

i n i t ( ) { 

regi ster  i nt  i ; 

f or  ( i =0  ; i < 1 28  ; i ■♦■  + ) fsetti]  = ^clistlil; 


pagebreax()  { //page  eject 
i nt  i ; 
char  err; 

err  = c ve r s (p I de v » 020  ) ; 
if  C err  ==  -1  ) { 

pr i nt f ( " i nva I i d filedes  in  oagebreakXn"  ) ; 
ex  i t ( ) ; 

) 

for  ( i =0;  i <T0P;  i 4"*-)  w r i t e (p  I dev  » ze  ro » 2 ) ; 

I i necount  = TOP ; 


aetrowC)  i //get  a row  of  chars  to  o'ot 
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i f ( t a i 1)  1 

poww  = f set  1 1 ♦ t a i 11 ->by t es ; 
head  = tai 1 t+; 

} 

while  ( 1)  { 

i f (getdef ( ) ) { 

if(poww  + f set  (tai 1 1 ->by tes  <=  oagewth) 
roww  =+  f set  [tai 1 ] ->bytes; 
else  {tail--;  ++infont;  break*! 
if  (t+infont  > 127)  break; 
tai 1 ++; 

! 

else  if(++infont  > 127)  break; 

) 

> 

putrowC)  { //plot  the  row  of  characters 
register  int  h,i,l;  int  t; 

St  rue  t cnode  *pt  r ; 
for(h=0;  h < ht;  h++)  { 

p = &pibufl2y]; 
ptr  i'  fset[(t  = head)]; 
f 0 r ( 1 =nead; 1 < = t a i 1 ; 1 +t ) { 

i f (pt  r->drc  ) { 

if(h  >=  ptr->rft  &&  h < pt r-> r f t +pt r->drc ) 
//1p->  next  raster  line 
Ip  = Ptr->lptr; 

//do  it  by  bytes 
for(i=0;i<ptr->bytes;i+t) 

*o++  = *lp++; 

//update  lotr  for  next  pass 
ptr->lptr  =+  ptr->bytes; 

) 

//bl ank  1 i ne 

else  f o r ( i =0 ; i <p t r->by t es ; i + 1 ) *p+t  = 0; 

> 

//blank  character 

else  f o r ( i =0 ; i <p t r->by t es  ; i + + ) ♦o  + t = 0; 
ptr  = fset(*tt); 

) 

//plot  1 raster  line  of  row  of  characters 
write(pldev*olbuf*roof(rowwt2U)); 

) 

//row  plotted*  plot  some  white  space 
for(h  = 0;h<5;ht>)  wri te(oldev*zero*2)  ; 

1 i necount  =+  ht  +5; 

//free  bytes  in  reverse  order 
for( i=tai 1 ) i>=head; i--) 
i f ( f set  I i ) ->opt  r ) 

freeCfset (il->ootr); 


int  getdef ( ) ( 

int  blkc*bytc;  register  i; 
if(harlinfont*21)  { 


_ l ie 


bike  = ( hd r ( i n f on t *2) &0 1 7740 0 ) >>  0; 
bike  =&  0377; 
byte  ~ hdr I i n f on t *2 t n ; 
if(blke)  { //otr  is  in  blks  and  bytes 
seek ( fp,b 1 ke » 3) ; seek ( fp/byte » 1 ) ; > 
else  seek ( f o, by t e » 0 ) ; 
get  node ( ) » 

a->ec  = infont;  read ( f Pr Sa-> Pw » 2 ) ; 
read(fp»Sa->lk/2);  read(fp»&a->pft»2); 
read(fp»&a->dpcf2); 

a*>bytes  = (a”>rw%0  = - 0)  ? a->pw/8  : a">pw/8+l; 
it(fcheek())  { //eheck  for  bad  ebar  dimensions 
if(a->dre)  { //need  bytes?,  eal 1 alloc 

if((i=a->optr=a->lDtr=alloc(a->drc*a~>bytes))<0){ 
or i nt f ( "Nnout  of  memory..."); 
printf("use  a smaller  pagew i d t h \n " ) ; 
ex  i t ( ) ; > 

read( fo,a->lDtr,a->drc*a->bytes)  ; 

} 

return  ( 1 ) ; 

) 

} 

return(O)  } 

> 

getnodeC)  { 

i f ( nodeot  r > 1 27  ) { 

printfC  overflow");  exit();> 
a = f set  Inodeot r + + ] ; 
a->optr  = a->1ptr  = 0; 


i nt  roof ( x ) 

int  x;  { //send  plotter  even  u bytes  only 
if(xX2  ==  0)  return(x); 

//for  some  reason  264  bytes  crashes  program 
if(x  ==  263)  return(262); 

*p  = O;  return(>+x); 


space ( X ) 

int  x;  ( //plot  X 1/4  inches  space 
int  i ; 

for(i=0;i<x*50;i++)  write(pldev,zero,2); 
1 i necount  =♦  x*50; 


check!)  < //orint  then  exit  on  bad  file 
if(ht  < 0 !!  maxw  < 0 l!  Iht  < 0 i! 

nt  > 25b  I!  maxw  > 256  !!  Iht  > ht)  { 

printf("bad  file");  exit!); 

) 

) 

i nt  nroom ! x ) 
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int  *»  { //ptn  1 there  are  not  x plot  lines 
//left  before  bottom;  otherwise*  0 
if(linecount  t x > PAGEHT)  returnCll; 
el se  return ( 0) ; 

} 

fcheckC)  { //if  bad  chardef*  rtn  0 to  skip  it 
//otherwise;  rtn  1 . 

if  ( (a->rw<0  !i  a->rw>255)  |i  (a->rft<0  !|  a->rft>255) 

!!  (a->lk<0  '!  a->lk>255)  |!  (a->drc<0  ||  a->drc>255) 

) ( 

or i nt f ( "\n i nva 1 i d value  for  character  ' %c ' \n" * i nf ont ) ; 
orintf("rw  ^JdNtrft  Xd\tlk  XdVtdrc  Xd\n"*a->rw* 
a*>rft*a->lkfa->drc); 
re t u rn ( 0 ) ; 

} 

else  ret  urn  ( 1 ) ; 

> 


C.  U5Ii\G  The  digitized  FONTS 


"Signmkr"  is  a program  with  limited  text  processing 
capabilities  designee  to  fill  an  interim  gap  in  the  compu- 
terized typesetting  system  at  NFS.  It  was  designed  to  give 
tne  user  a limited  means  of  outouttinq  small  files  that  re- 
quired the  use  of  the  fonts  from  the  data  base;  when  a vir- 
tual typesetter  that  will  accept  fonts  with  variable  dimen- 
sions is  developed*  the  "signmkr"  can  be  used  as  a novelty 
program  to  generate  signs  and  other  smal 1 files  that  use  ex- 
otic fonts.  "Signmkr"  can  center  lines  of  text*  leave  blank 
lines*  cause  oagebreaks  and  paragraph i ng,  and  can  change 
font  styles  from  line  to  line.  The  user  may  also  insert 
literal  codes  to  have  a certain  special  character  used  in 
his  output.  The  use  of  these  commands  is  explained  in  the 
next  paragraph;  unless  otherwise  indicated*  blanks  are  op- 


tional after  commands  but  are  recommended  in  most  cases  to 


improve  readability. 


Commands  accepted  by  "signmkr"  are  listed  below.  The 
letters  "ESC"  preceding  each  command  represent  the  ASCII  es- 
cape character  at  octal  code  033»  and  "\n"  is  the  standard 
"newline"  character  (octal  012)  used  to  represent  carriage 
return.  Each  ot  the  following  commands  must  begin  at  the 
beginning  of  a line  and  some  must  be  on  lines  by  themselves. 

a)  ESCc  < one  line  of  text  > 

The  "center"  commana  centers  one  and  only  one  line  of 
textf  and  that  line  is  the  line  immediately  following  the 
command.  This  reauires  the  user  to  use  this  command  in  each 
line  to  be  centered.  If  a line  is  too  long  to  be  centered^ 
then  "signmkr"  will  inform  the  user  of  this  and  ignore  the 
line. 


b)  ESCf<  SAIL  font  > ! < Hershev  font  > ! 
< complete  path  name  > 


The  "change  font"  command  allows  the  user  to  change  the 
font  being  used  for  tyoeset t i ng;  it  must  be  used  only  at  the 
head  of  a line  or  on  a line  by  itself.  A blank  must  not  be 
left  between  the  command  and  the  new  font  name. 

c)  ESCpq\n 

This  is  the  "oagebreak"  command  and  is  similar  to  the 
".bp"  command  useo  in  NROFP,  It  sends  a form-feed  signal  to 
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the  VERSATEC  and  re-positions  the  text  to  the  top  of  a new 


r 


page.  The  command  should  be  used  on  a line  by  itself 


I 

f- 


d)  ESCppNn 

The  "begin  paragraph"  command  indents  the  text  line  for 
paragraphing.  The  size  of  the  indent  is  determined  by  the 
size  of  the  current  font.  Like  the  "pagebreak"  command#  it 
should  be  on  a line  by  itself. 

e)  ESCs<  decimal  numoer  > ! < octal  number  > 

The  "space"  command  inserts  blank  lines  within  the  text. 
The  height  of  the  blank  line  is  egual  to  the  font  height.  A 
blank  must  not  be  left  between  the  command  and  the  number. 


The  following  command  may  be  used  at  any  place  within  an  in- 
put line  : 


f)  ESCo<  octal  nr  > I < decimal  nr  > 


The  "literal"  command  can  be  used  to  reguest  a certain 
octal  or  decimal  code  that  will  be  used  to  access  a charac- 
ter within  the  current  font.  The  command  may  be-used  at  any 
point  within  a line#  but  it  must  not  be  followed  by  a blank. 
This  command  is  useful  to  access  either  characters  that  the 
user  may  have  inserted  within  a font  file  during  an  edit 
session#  or  to  access  characters  from  a SAIL  font  whose 
character  cooes  correspond  to  control  characters  in  ASCII. 


Octal  nuTtbers  begin  with  the  character  'O'  and  do  not  con- 
tain the  numbers  fl  or  e.g.f  0176  and  0103. 

Users  with  previous  exoerience  with  text  processing  pro- 
grams Should  have  no  trouble  in  adapting  to  "signmlcr".  How- 
ever»  caution  should  be  exercised  when  using  the  "ESCpp" 
(paragraph)  and  "ESCf"  (change  fonts)  commands  at  the  same 
point  in  the  input  file.  The  two  sequences  of  input  lines 

(a)  ESCf  BDR6  (b)  ESCf  B0R6 

ESCpoXn  ESCf  HTR30\n 

ESCf  HTR30\n  ESCppNn 

< input  text  > < input  text  > 

are  not  identical.  Sequence  (a)  will  set  up  the  indentation 

for  the  next  paragraph  assuming  a font  height  of  8 point# 

but  the  text  will  actually  be  set  in  30  ooint  type#  so  the 

indentation  will  not  be  obvious.  Sequence  (b)  changes  the 

font  height  to  30  point  and  then  indents  based  on  that 


height  instead  of  8 ooint 


SIGNMKR 


12  May  1977 


SIGNMKR 


NAME 

signmkr  --  a orogram  with  limited  text  processing 
ability;  useful  with  small  projects 
that  require  exotic  fontSf  or  for 
making  cute  signs 

SYNOPSIS 

signmkr  < source  file  > 


DESCRIPTION 

This  program  is  capable  of  limited  typesetting  func- 
tions using  commands  described  more  fully  above.  It 
reaas  the  input  text  and  commands  from  a file  located 
on  the  same  oirectory  as  the  program^  in  most  cases 
"/.fonts. 01". 

rthen  designing  input  files  for  the  signmaker»  the  user 
should  try  to  do  as  much  of  the  formatting  for  the 
output  fife  as  is  possible.  The  signmaker  will#  in 
general/  give  you  back  what  you  out  in#  it  is  very 
good  at  truncating  lines  that  are  too  long  and  at  not 
filling  lines  that  may  be  too  short. 

Command  Summary: 

ESCc  Center  one  line  of  text 

ESCf  Change  the  current  font 

ESCpq  Cause  a oagebreak 

ESCpp  Begin  a oaragraoh 

ESCs  Space  down  n lines 

ESCo  Interpret  the  following  number  as  a 

literal  character  code 


FILES 


SEE  also 


s i gnmk  r . c 


/* 


*/ 


/* 


*/ 


/o 


*/ 


•define  TOP  230  //  top  margin 

•define  PAGEHT  14*100 
int  roww» 
i nt  s ) Of 
int  pagewtf'  216; 
int  linecount  PAGEHT; 
int  pidevf  infontf  in#  base; 
int  htf  maxwf  Ihtr  fOf  iof  rt 
int  nodeotTf  ooenbits; 
int  zeroti21f  hdr(256]; 
char  *lpf  *Of  *t»  *Of  *pl; 
char  esc  033;  char  blank  040;  int  c; 
char  header[40)  i . f on t s . 0 1 / f on t / " > ; 
char  pbuf  [901 f tbufCPOlf  olbuf[264]; 
char  f mark  f 1 28]  ; 
char  f ontname  [201  f ocharllO]; 
struct  cnode  [ 
int  cc ; 
char  *oPtr; 
int  r w ; 
i nt  bytes; 
int  Ik; 
int  r f t ; 
int  drc ; 

} c 1 i st  [1281  ; 
struct  cnode  *3f  *otr; 
struct  cnode  *fchar[128] 


//character  code 
//->lst  raster  line 
//raster  line  width 
//bytes  per  raster  1 
//left  kern 
//rows  from  top 
//data  row  count 


1 ne 


ma i n ( argc  f a rgv  ) 

int  argc;  char  **arqv;  { 
i f ( argc  < 2 ) ex i t ( ) ; 

else  if  ( ( i p = ooen ( a rgv 1 1 ] , 0 ) ) < 0)  ( 

or  i nt  f ( "cannot  ooen  IJs  " f a rgv  [ 1 1 ) ; exit(); 

> 

i n i t ( ) ; 

while  (getlnC))  putln(); 
pr i nt f ( "c 1 osed\n"  ) ; exitC); 


i n i t ( ) { 

regi ster  int  i ; 

i f ( ( p 1 de V =ooen ( " /de V / r vd" f 1 ) ) < 0)  < 

or i nt f ( "cannot  ooen  plotter");  exit(); 

> 

f o r ( i =0 ; i < 1 28 ; i + ♦ ) fchar[i]  = 0; 
n = fmark;  f o r ( i =0 ; i < 1 28 ; i + + ) *n++  = -i; 
fp  = 0;  c f ont ( "SA IL 1 0 " ) ; //default  font 
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int  getlnC)  { //ptn  1 if  there's  a line  to 
//be  D I o t t ed* ot he pw i se » 0 

char  k; 
t = t bu  f » 

k = o; 

while  ( ((*t  = getch())  1=  '\n')  K& 

(*t  :=  '\0')  ) < 

if  ( ==  89  ) { *t  = '\n';  break;  ) 

t + t; 

) 

if  ( *t  ==  *\0'  ) return(O); 
else  ret  urn ( 1 ) ; 


Dutln()  { //plot  as  much  as  can  fit  in  PAGEATH 
regi ster  int  h , i ; 
roww  ~ 0;  pagewth  = 216; 
if  ( si  0)  si  = 2«; 
t ~ tbuf;  p = pbuf; 
while  (*t  1=  '\n')  < 

if  (*t  ==  esc)  ( if  (escharC))  break;  > 
if  (filcharC))  break; 

> 

»p  = ' \n ' ; 

if  (t  ==  tbuf)  return;  //null  line  in  input  file 
//check  for  room 

if  ( nroom  ( h t + ( h t / 1 0 <•  1 ) ) ) oagebreak(); 
f or (h  = 0; h<ht ; h + + ) { 

ol  = iplbuflsll;  *ol  = 0;  openbits  = 8; 
otr  = fchar[*(p  = pbuf)); 
while  (*D  i=  '\n')  { 

r = pt  r->rw ; 
if  (pt  r->drc ) i 

if(h  >=  otr->rft  &&  h < o t r •>  r f t +p  " drc)  { 
i = h - ptr->rft; 

Ip  = ptr“>ootr  t i *pt r->b V t es ; 
wh i 1 e ( r > 0 ) { 

shiftC);  r =-  8;  } 

> el se  { 

Id  = zero; 
while(r  > 0)  { 

shift();  r =-  8;) 

} 

} e 1 se  { 

Ip  = zero; 

wh i 1 e ( r > 0 ) { 

shift();  r =-  8;} 

) 

Dt  r = fchar  f *♦+•0}  ; 

> 

//plot  one  row  raster  line 

wri te(Dldev»olbuf»  noof ( roww  + sl *8)  ) I 
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//plot  some  white  space 
for(h  = 0;h  < ht/lOtl  ;h  + + ) 
write(oldev/zerOf2)/ 
linecount  =+  h t + ( h t / 1 0 + 1 ) ; 
si  = O; 

> 

eschar()  ( //esc-  special  characters 
i nt  i » hi » space; 
char  1 1 / *tb»  *te; 
i f ( t ==  tbut ) { 

if  ((c  = *++t)  ==  'f')  < //font  change 
n = fontname*  t++; 

while  C (*n  = 1=  • ' *n  1=  '\n'  ) 

n + + ; 

tt  = *n; 

*n  = *\0';  c f ont ( f ontname) ; 
i f ( (tt  ==  '\n'  ) ! 1 (*t  ==  '\n'  ) ) { 

t = tbuf  ; return  n ) ; 1 

} else  if  (c  ==  *s')  { //need  space 
n = ochar;  t++; 
base  = ( *t  ==  ' 0 ' ) ? 8 : 10  ; 
while  (num(*n  = ^t))  { 

nf+;  t++;  } 

*n  = *\0’; 

hi  = oct( ochar)  * ht  » 
i f ( n room (hi))  { 

oagebreak();  t = tbuf;  return(l);  ) 
for  ( i =0 ; i <h i ; i ++  ) 

write(oldev»zerOf2); 

1 i recount  =>  h i ; 
t = tbuf;  return(l); 

) else  if  (c  ==  'o')i  //no  ascii  eouivalent 
n s ochar;  tt^; 
base  = ( *t  ==  ' 0 ' ) ? 8 : 10; 
while  (num((*n  s *t  ) ) ) < 

n + + ; t + ♦ ; 1 

*n  = '\0';  t--; 

*t  = ((i  = oct(ochar))  > -1  4R  i < 128  ) ? i 

; blank; 

} else  if  (c  ==  'c')  { //center  this  line 
while  (*++t  ==  ' ')  ; 

tb  = t ; 

while  (*t+t  1=  '\n')  ; 

while  (*--t  ==  ' *)  ; 

te  = t;  space  = 0; 
for(t=tb;  t<=te;  tt+)  i 
if  (hdr[*t*2J) 

space  =♦  hdrf*t*2)  & 0377; 
else  if  (har(0a0*2J)  { 

space  =♦  hdr(0^i0*2)  & 0377  ; 

•t  = oao; 

) e 1 se  { 

printf("input  error--  "); 

orintf("\tundefined  character. ..XcNn^f^t); 
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f 1 ushh ( ) ; 


space  = (spaceXS  ==  0)  ? space/8  ; space/8ti; 
si  = 132  - space/2; 
i f (si  < 2U)  { 

pp i nt f ( " i nput  error--  "); 

printfC^Nttoo  many  characters  to  centerXn"); 
f 1 ushh ( ) ; 

> 

f o r ( i =0  ; i <s  1 ; i + + ) olbufMl  = 0; 
t = tb; 

> else  if  (c  ==  'p')  ( 

if  ( (c  = *f+t)  ==  'g')  {//pgbreak 

pagebreak();  t = tbuf»  return(l);  } 
else  if  (c  ==  ’p*)  i //oaragrapn 

for(i=0;i<ht;it+) 

wri teCpldev»zero»2) ; 
si  = 2«  + (2«  * ht/120); 
pagewth  = oaaewth  - (2^  * ht/120); 
t = tbuf ; return ( 1 ) ; 

} 

else  i 

or  i nt  f ( " i nval  i ci  character  folowing  "); 

printfC'ESCo’.."); 

ex  i t ( ) ; 

> 

> e 1 se  { 

pr i nt f ( " i nout  error-  "); 

or i nt f ( "\t i nval i d escape  character...  Xc"»c); 
f I ushh ( >; 

} 

> else  if  ((c  = *++t)  ==  ’o')  ( //no  ascii  eauiv 

n = ochar;  t++» 
base  = (*t  ==  ’O')  ? 8 ; 10  ; 
while  (num((*n  = *t))  ) ( 

n + + ; t ♦ ; 1 

*n  = ' \ 0 ' ; t ; 

*t  = ( ( i =oc t ( oc h a r ) ) > -1  i < 128)  ? i 

: blank; 

} else  if  (c  ==  ’f*)  {//no  font  chg  allowed  here 
or i nt f ( "change  fonts  at  line  head  only  "); 
f 1 ush h ( ) ; 

) el se  { 

or i nt f ( " i nout  error-  "); 

or i nt f ( "\t i nva 1 i d escape  character  ( Xc  )\n",c)» 
ori nt f ( "\tembedoed  within  text...\n"); 
f 1 ushh  ( ) ; 

1 

r e t u rn  ( 0 ) ; 


int  filchar()  ( //move  chars  from  tbuf  to  Pbuf  until 

//PAGEl^TH  exceeded/  replace  nonexistent 
//chars  with  blank)  ow/  exit 
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regi ster  i nt  i » 
i nf ont  = *t ; 
if  (hdplinfont*21)  { 

if  ( f cha r [ i n f on t ] ==  0)  { 

getdef ( ) ; 

if  (powwta->rw  <=  pagewth*8) 
poww  =+  a->pw; 

else  {*D  = '\n';  petupn(l);} 

} else  if  ( POWW+ f c ha p [ i n f on t 1 ”> pw  <=  pagewth*0) 
POWW  =+  f c ha P { i n f on t 1 ”> pw ; 
else  (*p  = '\n';  petupn(l);} 

> else  if  ( hdp I ( i n f ont =b 1 ante ) *21  ) { 

*t  = blank; 

if  ( f c ha p t i n f on 1 1 ==  0)  { 

get  de f ( ) ; 

if  (poww+a->pw  <=  oagewth*8) 

POWW  =+  a->pw; 

else  {*o  = '\n'f  petupn(l);} 

} else  if  ( POWW+ f c h a p t i n f on t 1 •> PW  <=  pagewth*d) 
POWW  = f c h a p ( i n f on 1 1 ">  p w ; 
else  <*p  = '\n';  petupn(l);} 

> e 1 se  { 

ppintf("chapactep  '%3o'  not  defined  in  %s"»*t» 
headep ) ; 
f I ushh ( ) ; 

> 

*p++  = *t++; 

pet  upn ( 0 ) ; 


c f ont (q) 

Chap  *q;  { //q  points  to  new  font  name 
p»gi step  i nt  i » 
if  (fo)  { 

ppintf("closed\n");  close(fp); 

} 

f OP ( i = 1 6 ; ( headep t i 1 = *o  + + ) 1=  '\0';i+  + ) 
i f ( ( f psooen ( heade p f 0 ) ) < 0)  { 

opintfC" cannot  open  %s"»headep);  exit(); 

> 

ppintf('*%s  opened f heade  p ) ; 
dea I 1 oc ( nodept p ) ; nodeptp  = O; 
fop(i=0;i<128;it  + ) fchapCiJ  = 0»* 
pead(fp»hdp»512);  read(tp»!iht»2); 
pead(fp»4maxw,2);  pead(fp»&lhtf2); 
i f (check ( ) ) { 

ppintf("%s  bad  font  f i 1 e " » heade p 1 ; 
e X i t ( ) ; 

> 

) 

deal  1 oc ( X ) 

int  x»  ( //free  in  pevepse  opdep 
/ / of  allocation 


while  ( X ) 


1 fCfchar  (fmark  (--xJ ] ->optr) 

fpee(fcharlfmarklxl ]->optr); 


paaebreak()  { //page  eject 
i nt  i ; 
char  err; 

err  = c ve r s (p 1 de v / 0 20  ) ; 
if  ( err  ==  -1  ) i 

p r i n t f ( " i n va 1 i d filedes  in  pagebreakXn"  ) ; 
ex  i t ( ) ; 

> 

for  ( i =0 ; i <T0P ; i + + ) w r i t e (p 1 dev » ze ro / 2 ) ; 

1 i necoun t = TOP ; 


getdef  ( ) { 

int  blkc»bytc»  register  i; 

blicc  = ( hdr  ( i nfont  *21  &0  1 77400  ) >>  8» 

bike  =&  0577; 

byte  = hg r [ i n f on t *2 +■  1 1 ; 

i f (b 1 kc  1 { 

seek ( f Pf b 1 kc / 3 ) ; see k ( f p , by t c , 1 ) ; > 
else  seek ( f pf by tc » 0 ) ; 
getnode ( ) ! 
a->cc  = infont; 
read(fp»&a->rw/2) ; 

read(fp»&a->1  k , 2 ) ; read(fo»&a->rft  »21 ! 
read(fp»ia->drc»2); 

a->bytes  = (a->rw%8  ==  0)  ? a->rw/8  : a->rw/8+i; 
i f ( a->drc ) { 

i f (( i =a->op t r = a 1 1 oc ( a->d PC  * a->by t es  1 ) < 0)  i 
deal loc(nodeptr-l  ); 
getdef ( ) ; return; 

} 

read(fo»a->oPtr»a->drc*a->bytesi; 

} 

in  = 0 ; 

f or  ( i =0  ; i <nodept  r ; i +■+ ) { 

if(fmarklil  ==  infont)  in++; 

) 

if(in  ==  0)  f mar k (nodept r- 1 1 = infont; 


ge  t node ( ) < 

i f ( nodeot  r > 1 2 7 ) { 

or i nt f ( "over f 1 ow" ) ; exit();) 
a = f c h a r I i n f on 1 1 = 4c  1 i st  Inodeot  r +■  + ! ; 
a->ootr  = O; 

) 

int  r 0 o f C X ) 

i nt  X ; ( 

X = (xX8  ==  0)  ? x/8  : x/8  ♦ i; 

if(xX2  ==  0)  return(x); 


if(x  ==  263)  return(262)» 
*+to)  = O;  peturn(++x); 


i nt  check ( ) { 

if(ht  < 0 !1  maxw  < 0 I1  Iht  < 0 |{ 
ht  > 120  !!  maxw  > 256  '!  Iht  > ht) 
else  ret  urn ( 0 ) ; 


i nt  nroom ( x ) 
i nt  X ; t 

ifdinecount  + x > PAGEHT)  return(J); 
else  ret  urn ( 0 ) ; 


sh i f t ( ) { 

i nt  tb; 

tb  = *1d;  tb  =&  0377;  tb  =<<  openbits; 
i f (r  > 7)  { 

*0l++  -!  (tb  S 0177^00)  >>  8; 

*pl  =&  0;  *pl  =!  tb  & 0377; 

) e I se  < 

i f ( r <=  ooenb  its)  { 

*d1  =1  (tb  K 0177^00)  >>  8; 
ooenb its  =-  r ; 

} e 1 se  ( 

*d1  t+  =!  (tb  0177ii00)  >>  8; 

*ol  =&  0;  *d1  =I  tb  & 0577; 
ooenoits  = 8- ( r-ooenb i t s ) ; 

) 

> 

1 0 + + ; 


i nt  oc  t ( CP ) 

cha>*  *cp;  ( 
i n t i ; i = 0 ; 

base  = (*cp  ==  '0')  ? 8 ; 10; 
while  (num(*cp)  &&  *CO  1=  '\0') 
i = i *base  + *cp++  - 'O'; 
return ( i ) ; 


i nt 


num  ( CP ) 


char  cp; 

{ 

i f (base  == 

10 

&& 

(cp  > = 

' 0 ' 

&&  co  <= 

i f ( base  == 

8 

(cp  > = 

' 0 ' 

&&  co  <= 

if  (co  == 

'8' 

1 1 
1 1 

CP  = = 

' 9 ' ) 

( 

or i nt  f ( " 

i nput 

error-- 

"); 

pr  i nt  f ( "\t  i rrproper  octal  nuirber... 
while  (*t  !=  '\n')  outchar ( *t + + ) ; 


' 7 ' 


Xd 


ex  i t ( ) ; 

> 

else  return(O); 


return ( 1 ) ; 


' ) ) return ( 1 ) 
) ) ret  urn ( 1 ) ; 

» c p ) ; 
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APPENDIX  E.  HERSHEY  FONTS  AVAILABLE 


The  fonts  listeo  below  are  currently  available  on 
" / . f on t s . 0 1 / he r shey " in  vector  form.  They  are  used  in  this 
form  by  "drawhf"»  and  they  are  converted  to  dot  matrix  form 
from  vectors  bv  "makehf".  The  14  fonts  available  are  : 
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The  following  oaaes  orovide  a display  of  each  font  and 
its  character  set.  The  last  cage  of  this  appendix  contains 
a Quotation  written  in  each  font  for  comparison  ana  contrast 
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FIGORE  E-l.  (Continued) 
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FIGURE  E”2.  Hershev  Font  Comoarisons 
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APPENDIX  F.  font/character  DIMENSIONS 


Previous  character  Next  character 

ends  here  i.— — » » begins  here 

left  character  right 
*•  kern  ^ ♦—  width  — kern 

■ ■ ' . I — Logical  lop 


• ' ■■  Logical  bottom 

FIGURE  F-1.  Font  dimensions 

This  fioure»  taken  from  Reference  disolays  the  di* 
mensions  of  fonts  and  characters  that  must  be  taken  into  ac* 
count  when  setting  tyce  Oy  comouter. 


The  most  imoortant  characteristics  of  a font  are  its 
heights  the  width  of  its  widest  character,  and  its  logical 
height.  The  values  for  height  and  logical  height  remain  con- 


-tant  throughout  a font  and  are  the  real  measure  of  compati- 
bility among  fonts^  i.e./  in  creating  a new  font»  characters 
from  fonts  of  differing  heights  or  logical  heights  cannot  be 
mixed. 

Character  width,  raster  width,  and  left  kern  are  the 
characteristic  dimensions  of  characters.  The  right  kern  is 
not  listed,  but  may  be  comouted  if  desired.  There  are  two 
additional  dimensions  which  play  an  important  part  in  the 
stored  representation  of  the  aigitized  character.  These  are 
rows-f rom- t OP ( r f t ) , a count  of  the  blank  raster  lines  from 
the  logical  too  of  the  character  to  the  first  non-blank  row, 
and  the  data-row-count (drc ) , a count  of  the  number  of  raster 
lines  that  contain  character  information.  The  font  height 
minus  the  sum  of  rft  ol.us  drc  provides  the  number  of  blank 
lines  that  must  be  adoed  after  the  last  nonblank  raster  line 
to  complete  the  character. 

Another  important  characteristic  of  a font  is  the  base- 
line. This  is  the  distance  from  the  logical  top  of  the 
character  to  the  imaginary  line  on  which  the  row  of  charac- 
ters rests,  although  some  characters  may  extend  below  this 
line.  All  characters  in  a given  font  file  have  the  same 
height  and  baseline. 

"Kerning"  is  a characteristic  which  occurs  only  when  a 
font  has  a non-zero  left  or  right  xern,  so  that  the  charac- 
ter width  is  smaller  than  the  raster  width.  Kerning  allows 
the  computer  to  set  some  characters  closer  to  others  to 
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APPENDIX  G.  The  'SAIL'  FONTS 


A.  ’SAIL'  FONTS  AVAILABLE 

All  of  the  digitized  fonts  currently  available  are  list- 
ed below  by  typeface  and  style.  Each  of  these  is  located  on 
directory  " / . f on t s . 0 I / f on t " t 
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NONMBI 


12  point  Nonie  Bold  Italic 


NONL  — la  " " Roman 

NONLI  --  la  " " Italic 

NONLB  --  14  ” " Bold 

NONLBI  --  14  " " Bold  Italic 

SAILIO  --  10  " Delegate  (similar  to  IBM  Selectric) 

SHD15  --  15  " Shadow 

SIGN22  --  22  ” Sign 

SIGN41  --  41  " Sign 

GRFXIO  •“  10  " Graohics 

GRFX14  --  14  " Graohics 

MATHIO  — 10  " Math 

MAIH13  --  13  " Matn 

MATHIS  --  15  " Math 

MATH20  — 20  '*  Math 

MATH21  --  21  " Math 

B.  'SAIL'  CHARACTER  CODES 

The  SAIL  character  set  and  cor resoondi ng  octal  codes  are 
found  on  the  next  page#  with  the  ASCII  character  set.  A 


blank  indicates  that  no  character  exists  for  that  code 
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FIGURE  G-1.  SAIL  Character  Set 
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FIGURE  G-2.  ASCII  Character  Set 
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APPENDIX  h.  FINDING  A FONT 


A.  FONT  LOCATION 


All  of  the  fonts  and  font  man i oul at i on  routines  are  lo- 
cated on  a mountable  file  called  "fonts. 01".  To  access  this 
file»  the  following  procedure  is  necessary  after  logging  in; 

% f smoun  t f on  t S . 0 1 
/dev/fonts. 01 
spc 1 aaaa 
files  bbbb 
large  cccc 
d i rec  dddd 
i nd i r eeee 
used  f f f f 
free  gqga 
/dev/ f ont  s . 0 1 

/dev/ font s . 0 1 mounted  to  directory  /.fonts. 01 
X 

A complete  description  of  the  directory  configuration  is 
given  on  the  next  page.  Detailed  explanations  of  the  font 
editor  "edf"  and  the  Hershey  conversion  program  "makehf" 
are  given  in  Apoenoix  A and  in  Chanter  III  respectively; 
brief  descriptions  of  these  programs  are  also  located  with 
the  program  listings  in  AppenginAs  A and  B respectively. 
The  source  programs#  a copy  of  "A  User's  Guide  For  Font 
Manipulation  at  the  Naval  Postgraduate  Scnoo!"#  and  instruc- 
tions for  acquiring  both  are  contained  on  "fonts. 02 "»  anoth- 
er mountable  file  which  is  mounted  and  accessed  in  the  same 
manner  as  "fonts.Ol". 
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8.  MOUNTABLE  FILE  DESCRIPTION 

The  following  diagrams  describe  the  directory  configura- 
tions of  "fonts. 01"  and  "fonts. 02".  A "d"  in  a branch  of 
the  tree  indicates  that  the  next  name  is  a directory. 

1.  Fonts. 01 
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SAIL 
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dr  awh  f 

t pans f lie  | 

? 

s i gnm  k r 

fonts 

fonts 

cnv  r t 

4 

listfont  1 

mk  vec 

1 

* 

1 

The 

file  called  "HFONT 

" norma  1 1 y 

contains  the  most 

recent  1 y created 

Hershey  font»  unless 

i t 

was  spec i f i c a 1 1 y 

written  to 

anot  her 

di rectory . 

This  process 

is  e xp 1 a i ned  i n 

Append i x B . 

All  other  oroaram 

names  that 

oertain  to  Hershey 

fonts  are  exolained  elsewhere  in  this  reoort.  "Transfile" 

1 

and  "listfont"  pertain  to  the  conversion  of  SAIL  fonts  for 

NPS  use  and  are  discussed  in  Reference  6.  » 

! 


! 
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Fonts. 02 


/.fonts. 02 
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< 

I 
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To  obtain  a oersonal  cooy  of  the  User’s  Guider  mount 
botn  "fonts. 01"  and  "fonts. 02"  and  tyoe  "sh 
/ . f on t s . 02 /u se r man /o r i n t man  " . The  manual  will  be  directed 
to  the  line  orinter  and  the  fiqures  will  be  clotted  on  the 
VERSATEC  D 1 ot t e r/pr i nt er  . 
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